# perl -wpi -e 's/Will( Emigh)/JAPH\1/g' FileName
\1 better written as $1 at -e line 1.
#