Something like this works fine. Its tested.

#!/usr/bin/perl

undef $/;
my $text=<STDIN>;
my @data=split(/%%\n/,$text);
my ($headline,$datetime,$url,$desc);
foreach (@data) {
    ($headline,$datetime,$url,$desc)=split(/\n/,$_);
    print <<EOF;
Headline: $headline <BR>
Date and Time: $datetime<BR>
URL: $url<BR>
Desc: $desc<BR>
EOF
    next;
    }
[download]

--
Jay "Yohimbe" Thorne, alpha geek for UserFriendly