use Benchmark qw(cmpthese);
open(STDERR,">/dev/null");
cmpthese (10000,
            {
              match => sub { local $_ = "abcde    " x 100;
                             print STDERR "$1\n" while /\G(.{1,80})/gs;
                           },
              swap  => sub { local $_ = "abcde    " x 100;
                             s/\G(.{1,80})/$1\n/gs;
                             print STDERR $_;
                           },
            });