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.
In reply to RE: aoxomoxoa
by Adam
in thread aoxomoxoa
by frankus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |