$ perl -e '$x=12345; $x=~s/(?<=\G\d{2})/\012/g; print $x,$/'
12
34
5