format-output.pl

sub getContent
{
  open FH,shift;
	$content = '';
	$content.=$_ while(<FH>);
	return $content;
}
sub sar
{
	$txt = shift;
	$ret = '';
	for(split "\n",$txt)
	{
		$_ =~ s/\s+$//;
		$ret.=$_;
		$ret.="\n";
	}
	$ret =~ s/\n+$//;
	return $ret;
}
$sol = getContent('sol.txt');
$out = getContent('out.txt');
$sol = sar($sol);
$out = sar($out);
if($sol eq $out)
{print "YES\n";}
else{print "NO\n";}
print $sol,"\n\n",$out;