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

##</code><code>##

(this)

##</code><code>##

(this)
(is)
(broken)