$is_ebcdic_37 = "\n" eq chr(37); $is_ebcdic_1047 = "\n" eq chr(21); #### @lines = split /\012\015?|\015\012?/, $file;