Select Code to Download

sh-3.1$ perl benchmark.pl 
          Rate  split1 substr1   subst
...
ok 1
ok 2
1..2

sub subst
{
...

    $s3;
}

#!/usr/bin/perl

...
  my $n = (shift) ? int(rand(255)) : int(rand(254)) + 1;
  return chr( $n );
}