Help for this page
$_=1113333444455; $_=reverse; s/(\d{3})/$1_/g; $_=reverse; s/^_//; print;
DB<17> $_=1113333444455; m/(\d{3})(?{ print $1 })(?=\d{3})$/ 455