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