main::(working.pl:11):	while (<$fh>) {
  DB<1> 
main::(working.pl:12):	    /[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?slack[^-]+(-\d+)/s;
  DB<1> 
main::(working.pl:13):			   $PG{$3}{"$1-$2"} = $4; 
  DB<1> 
main::(working.pl:12):	    /[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?slack[^-]+(-\d+)/s;