if (my ($field) = grep { /^!!./ } split /\|/, $data)