perl -Mre=debug -le "$s = 'a man a plan a camel';print $1 if $s =~ /(camel|plan|monkey)/;"