Select Code to Download

use Modern::Perl;
say "Enter a word... maybe it's a palindrome...?";
chop(my $input = lc <>);
my $reversed = join q(), reverse split q(), $input;
say $reversed eq $input ? "yeah" : "nah";

use Modern::Perl;

...
{
    say "NOT A PALINDROME";
}