/x) {
my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
$mix =~ s/Euromix/EuroMix/;
/x) {
my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
$mix =~ s/Euromix/EuroMix/;
print "INSERT INTO tournaments \n";
print " (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";
print "INSERT INTO tournaments \n";
print " (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";