Give a fish, or teach him to fish? /me dons tutor's hat.

Read the Tutorials sections here for an introduction to regexen. In particular take note of the magical characters that match the start (^) and end ($) of a string. Note also the alternation (|) character. Also read the Perl man pages perlretut, perlrequick and perlre.