#!/usr/bin/env perl

use strict;
use warnings;

print 'Enter string: ';
chomp(my $string = <>);

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

##</code><code>##

Enter string: 123
No

##</code><code>##

Enter string: 121
Yes