use strict;
use warnings;

   my $file = "data1.txt";
   local $/ = "\nPass #";
   open my $fh, '<', $file or die "Can't open $file: $!";
   while ( <$fh>){
        print join(",",
              m/(\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)
           , "\n";
   }
   close $fh;