#!/usr/bin/perl
use 5.016;
use warnings;

sub sign { $_[0] <=> 0 }

sub f { (length($_[0]) == length($_[1])) and (sign($_[0]) == sign($_[1])) }

foreach(
	[110, 119],
	[-110, -119],
	[-110, 119],
	[1234, 214],
	[567, 23],
	[567, -23]
){
	say join(',', @{$_}), ' -> ', (f(@{$_}) ? 'T' : 'F');
}