Help for this page
#!/usr/bin/env perl ... chomp(my $string = <>); print $string eq reverse($string) ? 'Yes' : 'No', "\n";
Enter string: 123 No
Enter string: 121 Yes