perl -le "$_=shift; m/fish(.*?)$/ and print $1" "one fish two fish three fish"