sub BFPRCONS(){ $BFPRCONSCount = $BFPRCONSCount + 1; $BFPRCONSFileName = $job."_".$orgCycleNumber."_".$junk1."_".$filedate."_".$junk2; open (DATA, "; close (DATA); foreach (@lines){ chomp; $bfprconsindicator = substr($_, 0, 44); if ($bfprconsindicator eq "========== Summary of bfpr_catfl results ==="){ print "$_\n"; } } }