Select Code to Download

use strict;
use warnings;
...
}

my $result = timethese(100000, {'seperate' => \&seperate, 'replace' =>
+ \&replace});

Benchmark: timing 10000 iterations of replace, seperate...
   replace:  0 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
...
            (warning: too few iterations for a reliable count)
  seperate: 16 wallclock secs (12.50 usr +  0.00 sys = 12.50 CPU) @ 80
+00.00/s (n
=100000)