Need the g (global) flag on that substitution operation.

diff --git a/flac2mp3 b/flac2mp3
index 8c4e746..17452bf 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -129,7 +129,7 @@ sub flac2mp3 {
     # any single quotes in the filename by closing the quote ('),
     # putting an escaped quote (\'), and then reopening the quote (').
     for ($fn, $title, $artist, $album, $date) {
-        s/'/'\\''/;
+        s/'/'\\''/g;
     }
 
     $outfile = sprintf("$artist ($album) \%02s $title.mp3", $track);