Y:\>perl -we "($o,$_)=([' isn\'t',' is',qq! a palindrome.\n!],shift); 
print $_,map{$o->[$_]}($_ eq join qq!!,reverse/(\w)/g),2"
Use of uninitialized value in pattern match (m//) at -e line 1.
Use of uninitialized value in string eq at -e line 1.
Use of uninitialized value in print at -e line 1.
 is a palindrome.