in reply to quotes substitution

Brackets are for character classes, use parens for grouping. Try this:

$line =~ s/(&|&)rdquo/'/g; # or for non-capturing group: $line =~ s/(?:&|&)rdquo/'/g;