$/ = \1;  # Set Input Record Separator to one byte

while ( my $ch = <FILE> ) {