(Broken Base Case...)
% perl -le 'print "($1) " while "this_is_broken_" =~ /(.*?)_/sg'
(this) 

% perl -le 'print "($1) " while "this_is_broken_" =~ /([\000-\377]*?)_/sg'
(this) 
(is) 
(broken) 

% perl -le 'print "($1) " while "this_is_broken_" =~ /([\000-\377]*?)_/g'
(this) 
(is) 
(broken) 

% perl -le 'print "($1) " while "this_is_broken_" =~ /((?:.|\n)*?)_/g'
(this) 
(is) 
(broken) 

% perl -le 'print "($1) " while "this_is_broken_" =~ /((?:.|\n)*?)_/sg'
(this) 
(is) 
(broken)