Select Code to Download

sub Str {
  my $Str = q{
...
Benchmark: timing 10000 iterations of Str...
       Str: 29 wallclock secs (28.64 usr +  0.01 sys = 28.65 CPU)

sub Ref {
  my $Str = q{
...
});
Benchmark: timing 10000 iterations of Ref...
       Ref:  9 wallclock secs (10.50 usr +  0.00 sys = 10.50 CPU)