#!/usr/bin/perl

while ("this_is_broken_" =~ /(.*?)_/gs) {
    print "($1) ";
}

##</code><code>##

#!/usr/bin/perl

while ("this_is_broken_" =~ /(.*?)_/g) {
    print "($1) ";
}