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