Help for this page
perl -le 'while ("this_is_broken_" =~ /(.*?)_/gs){print "($1) ";}'
(this)
(this) (is) (broken)