$line =~ s/(&|&)rdquo/'/g;

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