#!perl -p s/ (?= *\\)/chop($a||=' * $ :')/ge