diff --git a/locale/find-duplicates.pl b/locale/find-duplicates.pl
index eb0737bb5..01ce79a70 100755
--- a/locale/find-duplicates.pl
+++ b/locale/find-duplicates.pl
@@ -3,13 +3,13 @@
 use strict 'vars';
 
 open(my $fh, "<", "audacity.pot")
-	or die "Can't open < audacity.pot: $!";
+    or die "Can't open < audacity.pot: $!";
 
 my @sourcelines = ();
 
 $\ = "\n";
 
-foreach my $line (<$fh>) {
+while (my $line =<$fh>) {
     chop $line;
     my @tokens = split(/ /, $line, 2);
     if ($tokens[0] eq "#:") {
@@ -18,7 +18,12 @@ foreach my $line (<$fh>) {
     elsif ($tokens[0] eq "msgid") {
 	if( @sourcelines > 1) {
 	    print;
-	    print $tokens[1];
+	    my $string = $tokens[1];
+	    do {
+		print $string;
+		$string = <$fh>;
+		chop $string;
+	    } while $string =~ /^"/;
 	    foreach my $sourceline (@sourcelines) {
 		print $sourceline;
 	    }