open my $in,  '<:raw', 'infile.dat' or die $!;