use strict;
use warnings;

my ($filein, $fileout) = @ARGV;

if(!$filein || !$fileout) {
  die("Need filein and fileout");
}

open(my $in, '<:utf8', $filein) or die "Can't open '$filein' for reading: $!";
open(my $out, '>:utf8', $fileout) or die "Can't open '$fileout' for reading: $!";
#open(my $out, '>:via(File::BOM):utf8', $fileout) or die("Couldn't open $fileout for write");
#open_bom(my $out,  $fileout) or die "Can't open '$fileout' for reading: $!";

# Add the bom back for mp4box
print $out "\xef\xbb\xbf";

while(<$in>) {
#  chomp;

#  s/\x{2192}$//g;
#  s/^\x{301C}$//g;
#  s/^\x{FF5E}$//g;

  #print $out "$_\n";
}

utf8 "\x8E" does not map to Unicode at C:\foo.pl line 18, <$in> line 1565.