use strict;
use warnings;

use Tie::File;

my $infile = q{noa.txt};

my $wanted_re = qr{
    \A
    (?>
        (
            Pass \s \# |
            Elapsed \s Time \s+ : \s+ |
            CPU \s Time \s+ : \s+ |
            Virtual \s memory \s size \s+ : \s+ |
            Resident \s set \s size \s+ : \s+ |
            Major \s page \s faults \s+ : \s+
        )
        (
            [\d.]+
        )
    )
}msx;

my $last_stat_re = qr{ \A Major \s page \s faults \s+ : \s+ \z }msx;

tie my @indata, q{Tie::File}, $infile or die $!;

for my $line (@indata) {
    next if $line !~ $wanted_re;
    print $2;
    print $1 =~ $last_stat_re ? qq{\n} : q{, };
}

untie @indata;