Works for me...
use warnings;
use strict;
my $doc = q('C-3PO' or 'See-Threepio' is a humanoid robot character fr
+om the [[Star Wars]] universe who appears in the original ''Star Wars
+'' films, the prequel trilogy and the sequel trilogy.);
$doc =~ s/\[\[//g;
$doc =~ s/\]\]//g;
$doc =~ s/\'//g;
print "$doc\n";
__END__
C-3PO or See-Threepio is a humanoid robot character from the Star Wars
+ universe who appears in the original Star Wars films, the prequel tr
+ilogy and the sequel trilogy.
Basic debugging checklist