#! /usr/bin/perl
#

open(TF, "<kglteater-2006.txt");
while (<TF>) {
	$line = $_;
	if (/[0-9]+\/[0-9]+/) {
		# 27/4 - 26/5
		if (/^([1-9][0-9, \/-]+)([a-zA-Z\.\03ff]+.*)/) {
			$dates = split(/,/,$1);
			#printf("%s%02d%02dT%02d%02d $3\n", "2006", $1, $2);
			print "'$1' '$2' '$3' '$4'\n";
		} else {
			print;
		}
	}
}
close(TF);

