% perl -le 'print "($1) " while "this_is_broken_" =~ /(.*?)_/gs'
(this) 
(is) 
(broken) 

% perl -v
This is perl, v5.6.0 built for i386-linux