use charnames ':full'; /\N{EM DASH}/;
use utf8;
$a=".";
if($a =~/\x{2014}/)
{
print "Found";
}
else
{
print "Not Found";
}