#!/usr/bin/perl
$PATH_DELIM			= "\\";
$file = "c:\\temp".$PATH_DELIM."export".$PATH_DELIM."CONVERSION".$PATH_DELIM."test.txt";
%info =();
if(open (TEST ,"<$file"))
{
  while(<TEST>)
  {
  chomp;
  if ( $_ !~ /PLMEJob Master/ )
        {
                next ;
        } 
        $_ = <TEST> ;
        chomp;
         while ( $_ !~ /^$/)
        {
           print "$_\n";
           my @a = split /=/;
	         $info{$a[0]} = $a[1];  
	         $_ = <TEST>;
	         chomp;
        } 
        close(TEST);   
  }
}
#close(TEST);
foreach(%info)
{
  print "$_ => $info{$_}\n"
}
#print "$_ => $info{$_}\n" foreach keys %info;