#!/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;
	}