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