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.
[download]

Basic debugging checklist