my ($german, $english) = split '-', $line;