@line = <filehandle> #filehandle used for opening the file

foreach my $line (@lines) {
            
              #note i am matching a line  doing something like printing and then using next ..
              if($line =~/^ProcessName:/){
				$mess = substr $keyword , 13;
				$unirec{$id} .="$date,$id,$mess\n";

				next;
				}
              
              if($line =~/^Process Message :/ ){
				$mess = substr $keyword , 18;
				$unirec{$id} .="$date,$id,$mess\n";

				next;
				}
              
              
       }