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

##</code><code>##

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