2;0 juerd@ouranos:~$ perl -l
while ("this_is_broken_" =~ /(.*?)_/gs) {
  print "($1) ";
}
(this)
2;0 juerd@ouranos:~$ perl -l
while ("this_is_broken_" =~ /(.*?)_/g) {
  print "($1) ";
}
(this)
(is)
(broken)
2;0 juerd@ouranos:~$ perl -v

This is perl, v5.6.1 built for i386-linux
=cut :)