$line="” 3 ”";
$line =~ s/(?:&|&amp\;)rdquo;/'/g;
print "$line\n";