open my $in, "<:raw", $ARGV[0] or die;
open my $out, ">:raw", "$ARGV[0].asm" or die;
while (<$in>) {
    $_ =~ y/\x80-\xff/\x0-\x7f/;
    s/\x0//g;
    print $out $_;
}