#!/usr/bin/perl -w

open OUT,">userlist.txt";

print OUT "NACHNAME:VORNAME:GEBURTSTAG:KLASSE\n";

while(<>) {
	s/"//g;
	@line = split /,/;
	$Klasse = $line[52] || $line[53];
	$Klasse =~ s/^0//g;
	$Klasse =~ s/ //g;
	$Klasse =~ s/\//-/g;
	$Klasse = uc($Klasse);
	print OUT "$line[3]:$line[6]:$line[10]:$Klasse\n";
}
