$ cat 775558.pl use strict; use warnings; my $line="” 3”"; $line =~ s/(?:&|&\;)rdquo;/'/g; print "$line\n"; $ perl 775558.pl ' 3'