use Modern::Perl;
my $string = 'Test:' . chr(0x0022) . chr(0x00AB) . chr(0x201C) . chr(0x201F) . chr(0x301D);
$string =~ s/\p{Quotation_Mark}/'/g;
say $string;