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

##</code><code>##

  DB<17>  $_=1113333444455;  m/(\d{3})(?{ print $1 })(?=\d{3})$/
455