Select Code to Download

#!/usr/bin/perl
use warnings;
...
}

$string =~ /alice/;

$ ./bound.pl 
Compiling REx "\bd\%""
...
   2: EXACT <d"> (4)
   4: END (0)
anchored "d%"" at 0 (checking anchored) stclass BOUND minlen 2

Compiling REx "\bd\%""
Final program:
...
  Did not find anchored substr "d%""...
Match rejected by optimizer
Freeing REx: "\bd\%""