in reply to (Challenge)(for new users) Replacing a text

perl -pi -e 's/Will(\s+Emigh)/YAPH$1/g'

Is this what you are looking for?

May the Force be with you

In Section Seekers of Perl Wisdom