$x =~ /^(.*<\d>)/$1<1><2><3>/s;