/x) {
my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
$mix =~ s/Euromix/EuroMix/;
+ $mix =~ s/Dance Dance Revolution 8th mix - Extreme/DDR Extreme/;
$system = '10K Machine score' if ($system =~ /^\s*$/);
print "INSERT INTO tournaments \n";