my $x=12345;
$x=~s/(?<=\d{2})/\012/g;
print $x,"\n";