use strict;
use warnings;

my $input = "<b></b>Officially called <>“events,”</a> as "never events"";

print "input: $input\n";
$input =~ s/“/“/g; # change the lines
$input =~ s/”/”/gi;
$input =~ s/’/’/gi;
print "processed input: $input\n";