Select Code to Download

/^' PJOB='([^']*)' PSET='([^']*)' PJNO='([^']*)' WORKDAY='/;
$pjob = $1;
...
$pjno =~ s/^00//;
$jobstation = $jobsetstation{$pset};
print "follows $jobstation\#$pset.${pjob}_$pjno\n\n\n";