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