open SwitchLogs, $logFile or die "Could not open $logFile: $!"; while () { chomp; my $line = $_; if($line =~ m/PHY-4-EXCESSIVE_ERRORS/){ push(@err, "$line\n"); s/PHY-4-EXCESSIVE_ERRORS/PHY_4_EXCESSIVE-ERRORS/g; $sendemail = 1; } } close SwitchLogs;