my @arr = split /(\D+)/, $s;