Select Code to Download

my $str = "bea" x 100;
my $re  = qr/(?:be|ea|a)/;
...
}
atomic();
possessive();

# atomic
Compiling REx "(?-xism:(?:be|ea|a))+\d"
...
   10650    70471  1837158 regex.ato
  229368  1989603 47988305 regex.pos

michael@lnx-main:working> grep Detected regex.ato
whilem: Detected a super-linear match, switching on caching...
...
    298    2086   26426
michael@lnx-main:working> grep '(cache)' regex.pos | wc
      0       0       0

# Do nothing
NOTHING    no    Match empty string.
# A variant of above which delimits a group, thus stops optimizations
TAIL    no    Match empty string. Can jump here from outside.