$_=1113333444455;
$_=reverse; s/(\d{3})/$1_/g; $_=reverse; s/^_//;
print;