in reply to Match Whole Word
Read about the \b word boundary regular expression metacharacter in perlre.
/J\