if (my ($field) = grep { /^!!./ } split /\|/, do { local $/; <DATA> })