Select Code to Download

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

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