Select Code to Download

#!/usr/bin/perl

use strict;
...
my $check = reverse $palindrome;

print "yes\n" if $check eq $palindrome;