Regular Expression Perl

while(){
   print if /\bJon\b/;
}
__DATA__
    Jonathan 
    Jason
    Mary
    Mark