#        1         2         3         4         5
#2345678901234567890123456789012345678901234567890123
$_=sprintf"%.2f",pop;{s/(^\d+)(\d{3})/$1,$2/&&redo}$_