$ perl -e '$x="123d45"; $x=~s/(?<=\G\d{2})/\012/g; print $x,$/'
12
3d45