for (split/\n/,$string) {

}