use strict;
use warnings;
use Time::HiRes qw(time);

sub uncomment_one {
    #my $test = $`;
    #my $test = $';
    #my $test = $&;
}

my $in = "abcdefghijklmnopqrstuvwxyz\n" x 20_000;
my @a;    
my $r = '.*';
my $start = time;
while ( $in =~ /^($r)$/mg){
    push @a, $1;
}
print "Took " . (time - $start) . " seconds";