Help for this page

Select Code to Download


  1. or download this
    % perl -le 'print "($1) " while "this_is_broken_" =~ /(\C*?)_/sg'
(this)
...
Not at start...
Match rejected by optimizer
Freeing REx: `(\C*?)_'
  2. or download this
    %  perl -le 'print "($1) " while "this_is_broken_" =~ /(.*?)_/sg'
(this) 
...
(this) 
(is) 
(broken)
  3. or download this
    (Broken Base Case...)
% perl -le 'print "($1) " while "this_is_broken_" =~ /(.*?)_/sg'
...
(is) 
(broken)