my @lines = split /\015\012/, $x;