#!perl -p
s/(\W) ((\d|(?0)) (?3))/$2 $1_/&&redo;s/_//g