Select Code to Download

>perl -wMstrict -le
"my $str = 'abcd';
...
(?-xism:(?=[^a-z])) does not match 'abcd'
(?-xism:(?![a-z])) matches 'abcd' at offset(s) 4
(?-xism:\b) matches 'abcd' at offset(s) 0 4