Help for this page

Select Code to Download


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