ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch5/commas

Text File | 1992-10-18 | 132 b | 8 lines

sub commas {
    local($_) = @_;
    1 while s/(.*\d)(\d\d\d)/$1,$2/;
    $_;
}
...
_$_R_E_S_U_L_T =  &commas(_E_X_P_R);