my @lines = s//join'',<DATA>/e ? s/\n\+//g ? split "\n" : ($_) :($_);