my @arr = split /\n\b/, $str;