#!/usr/bin/perl -w

my $year = ""; 

while (<>) {
	chomp;
	if ($_ eq "") {next;}
	elsif ($_ =~ /^\d\d\d\d$/) {
		$_ = $year;
	}
	else {
		s/\@(\w*)/ <keyword> $1 <\/keyword>/g;
		s/\%(\w*)/ <tag> $1 <\/tag>/g;
		print "<entry>$_ <year> $year </year> </entry>\n";
	}
}