Select Code to Download

#!/usr/bin/env perl

...
chomp(my $string = <>);

print $string eq reverse($string) ? 'Yes' : 'No', "\n";

Enter string: 123
No

Enter string: 121
Yes