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";

##</code><code>##

use Modern::Perl;

# Get a line from the user, and remove the
# trailing line break
say "Enter a word...";
chop(my $user = lc <>);

# Keep a copy of the user input because we're
# about to totally destroy $user.
my $original = $user;

# An array that we're going to split the
# input into.
my @userinput;

# Keep going while there's still some input.
while (length $user)
{
	# Chop takes a character from the end
	# of the string. Unshift adds something 
	# to the start of the array. So this
	# reverses the string as it goes!
	
	unshift @userinput, chop $user;
}
# Now join the array back into a string.
my $reversed = join q(), @userinput;

if ($original eq $reversed)
{
	say "PALINDROME";
}
else
{
	say "NOT A PALINDROME";
}