open (my $fh,”<”,$file) or die “Can’t open file 
         $file: $!”;
     while (my $line = <$fh>) {
     chomp($line);
     next if $line =~ /^Processor/;