s/(\d+)/$_=$1;1while(s|(?