my $old;
s<\G(.*?\w+)><$old.=$1;"$old\n">ge;