quotes substitution

[sandy1028]

#!/usr/bin/perl
$line="” 3”";
$line =~ s/[&|&amp\;]rdquo;/'/g;
print $line;

I have to substitute ” or ” with single quotes. Now the output I get from the above code is ” ' 3&amp'” Where the expected output should be ‘3’.

[KevinR]

maybe this will meet your requirements:

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