Select Code to Download

Select or download this

use strict;
use warnings;
...
        $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
        return scalar reverse $text;
}

Select or download this

wdcsun28.usdoj.gov - - [07/Aug/2003:04:58:15 -0700] "GET http://dl.dom
+ain.org/MyFoo-file.zip HTTP/1.0" 200 1607158 TCP_MISS:DIRECT

wdcsun28.usdoj.gov - - [07/Aug/2003:05:03:33 -0700] "GET http://dl.dom
+ain.org/MyFoo-file.zip HTTP/1.0" 200 8224380 TCP_MISS:DIRECT