$/=\1;map{print$r=/\d/?$b[$_]:$_;@b=($r,@b)if$r=~/\w/}<>