my @fields = split /[|]/ => $line;
...
if ($fields[0] eq 'MSH' and $fields[8] eq 'ADT^A02') { ... }
...
if ($fields[0] eq 'PV1' and $fields[6] eq '') { ... }
...