Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
 return $str.$_;
}
print mine($s,$c,$r,$n);

#!/usr/local/bin/perl -w
use strict;
...
  "MINE" => sub { mine ($s,$c,$r,$n) },
});

Benchmark: timing 500000 iterations of BBFU'S, MINE, Quent's...
    BBFU'S: 20 wallclock secs (19.45 usr +  0.00 sys = 19.45 CPU) @ 25
+706.94/s (n=500000)
...
Quent's 20027/s      --    -20%    -22%
MINE    25147/s     26%      --     -2%
BBFU'S  25707/s     28%      2%      --