Select Code to Download

open(my $fh, "<:encoding($CEF)", $qfn) or die;
while (<$fh>) {
   print("Line $. contains EM DASH\n") if /\x{2014}/;
}

# :locale doesn't work on Windows :(
use open ':std', ':encoding(cp1252)';
...

   print("\n");
}