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