use strict;
use warnings;
use Data::Dump qw/pp dd/;
#use utf8;


my $string = 'copied from a web page looking like this: “Test.” ';

dd $string;

$string =~ s/“//g;
$string =~ s/”//g;

dd $string;