my @array = split /[\n\r\l]*/, $array;