Am I drunk? Doesn't if ((not $row[0] =~ /RMCHG/) and (not $row[0] =~ /RMCHRG/) and (not $row[0] =~ /REUN/)) { if ($row[0] eq 'RMADJ') { # Do something... } } Reduce to if ($row[0] eq 'RMADJ') { # Do something... } ? j