#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);

for my $n (1 .. 25) {
    my @start = gettimeofday;
    
    $_ = 'a' x $n;
    /(?:a?){$n}a{$n}/;
    
    my @end = gettimeofday;
    
    my $elapsed = $end[0] - $start[0] + 10**-6 * ($end[1] - $start[1]);
    
    print "$elapsed\n";
}