($_ =~ /Perl/ )

##</code><code>##

Bob
John
Jenna
Whoever