perl -wne 'use Regexp::Common; /^$RE{lingua}{palindrome}$/ and print "palindrome\n";'