$num = scalar reverse "1000000000000"; $num =~ s/(\d\d\d(?=\d))/\1,/g; print scalar reverse $num; [download]
In reply to Re^3: Look Ahead: by rmflow in thread Look Ahead: by nvivek