#!/usr/bin/perl
#
#(c) mhp und der gpl in 2002. ;)
#

my $title, $bday, $name, $status, $line;
$status=0;
while (defined($line=<STDIN>)) {
	chomp($line);
	$status=1 if ($line=~/^BEGIN/);
	$bday="$3/$2/$1" if ($line=~/^BDAY:([0-9]+)-([0-9]+)-([0-9]+)/);
	if ($line=~/^TITLE:(.+)/)
	{
		$title="$1"; 
		$title=~s/\r//g;
	}
	if ($line=~/N:(.*)/)
	{
		$name=$1;
		$name=~s/;/, /g;
		$name=~s/\r//g;
	}
	if ($line=~/^END:/)
	{
		$status=0;
		if($bday ne "") { 
			if($name ne "") { print "$name"; }
			if($title ne "") { print "($title)"; }
			if(($name eq "") && ($title eq "")) {
				print "unknown";
			}
			print "=$bday\n";
		}
		$name=$nick=$title=$bday="";
	}
}
