$a=~ s/(.*?)(\d+)/$1\_$b\_$2/;