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