Select Code to Download

$is_ebcdic_37   = "\n" eq chr(37);
$is_ebcdic_1047 = "\n" eq chr(21);

@lines = split /\012\015?|\015\012?/, $file;