use strict;
use Benchmark;

for ( 1..5 ) # Do five tests.
{
    $_ = int( rand(10_000) ) ** int( rand(3) + 2 );
    print $_, "\n";
    timethese( 1_000_000, {
        'KM'     => sub { 1 while s/^(-?\d+)(\d{3})/$1,$2/ },
        'Merlyn' => sub { s/(\d)(?=(\d{3})+(\D|$))/$1\,/g }
    });
    print "\n", "- " x 39, "-\n";
}