#!/usr/bin/perl -n

chop;
s/^"//;
s/"$//;

@a = split(/"?;"?/, $_);
@name = split(/ /, $a[0]);
@ort = split(/ /, $a[3]);

for ($a[7]) {
	s/A/Österreich/;
	s/CH/Schweiz/;
	s/D/Deutschland/;
}

@o = ("FLI4L","0",$name[1],$name[0],"","",$a[1],$a[4],$a[5],$a[6],"",
	$a[2],$ort[1],"",$ort[0],$a[7],"","","","","",
	"4","1","7","2","0","0");

print '"'.join('","', @o)."\"\n";
