use warnings;
use strict;

my $doc = q('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 trilogy and the sequel trilogy.);

$doc =~ tr/[]'//d;

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 trilogy and the sequel trilogy.