Select Code to Download

s/\G(.{1,80})/$1\n/gs;
print;

use Benchmark qw(cmpthese);
open(STDERR,">/dev/null");
...
                             print STDERR $_;
                           },
            });

Benchmark: timing 10000 iterations of match, swap...
     match:  1 wallclock secs ( 1.26 usr +  0.01 sys =  1.27 CPU) @ 78
+74.02/s (n=10000)
...
        Rate match  swap
match 7874/s    --  -20%
swap  9804/s   25%    --