perl -e '$tgt =~ s/\bc?(\w+?)(?:f|l)?\b/$1/g;'