my @parts = $field =~ /([A-Za-z]+|\d+)/go;