Help for this page
perl -le "$_=shift; m/fish(.*?)$/ and print $1" "one fish two fish thr +ee fish"
two fish three fish