in reply to Getting data out of __DATA__ and __END__

my @list= split ' ', do { local $/; <DATA> };         - tye (but my friends call me "Tye")