my @list = split(/\n/, $string);