Select Code to Download

my @groups = ();
my $pred = -1;
my $j = 0;
...
        $groups[$j] += $+[0] - $-[0];
        $pred = $+[0];
        }

qr{
                           # start of full pattern
        \(                  # match an opening parenthesis
...
        \)                  # match a closing parenthesis
                           # end of  full pattern
}x;

#use strict;
use warnings;
use Time::HiRes;
...
}

print Time::HiRes::time() - $start, $/;