...
Pass #123 ...
...
Elapsed Time : 1753.2 sec
CPU Time   :  753.2 sec
...
Virtual memory size  :  4472.6 MB
Resident set size    :  4362 MB
...
Major page faults  :  7153
...
Pass #124 ...
...

##</code><code>##

...
123, 1753.2, 753.2, 4472.6, 4362, 7153
...

##</code><code>##

use strict;
use warnings;

sub slurp {
  local $/ = undef;
  local *file;
  open file, $_[0] or die "Can't open $_[0]: $!";
  my $slurp = <file>;
  close file or die "Can't close $_[0]: $!";
  $slurp;
}

my $indata = slurp('noa.txt');

print "pass, wall time (sec), CPU time (sec), VM (MB), ResMem (MB), Page Faults\n";

while ($indata =~ m/^Pass\s\#(\d+).*?
                    ^Elapsed\ Time\s+:\s+([\d\.]+).*?
                    ^CPU\ Time\s+:\s+([\d\.]+).*?
                    ^Virtual\ memory\ size\s+:\s+([\d\.]+).*?
                    ^Resident\ set\ size\s+:\s+([\d\.]+).*?
                    ^Major\ page\ faults\s+:\s+([\d\.]+)
                   /msgcx) {
  print "$1, $2, $3, $4, $5, $6\n";
}