escape commas for mplayer

convert-to-wav.pl

@@ -4,8 +4,9 @@ use strict;
 
 foreach my $arg (@ARGV)
 {
-	my $out = $arg;
-	$out =~ s/\....$//;
-	system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
+    my $out = $arg;
+    $out =~ s/\....$//;
+    $out =~ s/\,/\\,/g;
+    system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
 }