my @arr = split /\n(?=\S)/, $str;