Help for this page

Select Code to Download


  1. or download this
    while ("this_is_broken_" =~ /(.*?)_/gs) {
  print "($1) ";
}
  2. or download this
    ^C
C:\>perl -mre=debug trash.pl
...
  15 <s_is_broken_> <>    | 10:    END
Match successful!
(broken) Freeing REx: `(.*?)_'