local $/ = "Startpoint"; $temp="abc";
 while(<INFILE1>){ 

 /[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?slack[^-]+(-\S+)/s; 
       
 $PG{$3}{"$1-$2"}{"$cou"} = $4; 
 $cou++;
 }