$ perl compare.pl
a 3 R