perl split string into array newline