Select Code to Download

my $string = 'run rabbit run';
print "Matched with word boundary\n" if $string =~ /\brun\b/;
print "Matched with non-word char\n" if $string =~ /\Wrun\W/;