#!/usr/bin/perl -w

while (<>) {
	chomp;
	if (($file) = /FILE "(.*?)\.wav"/) {
		if ($file =~ /-sour$/) {
			$file =~ s/-sour$//;
			$file =~ tr/_/ /;
			$file =~ s/-/ - /g;
		} else {
			$file =~ tr/-_/ /;
			$file =~ s/\./ - /g;
		}
		$file =~ s/\+/ \\& /g;
		$file =~ s/\b(\w)/\U$1/g;
		$file =~ s/^[A-D0-9]+ - //;
	print "\\item $file\n";
	}
}