@x = map {tr/ //d;$_} split /(?<=[[:alpha:]])[\s,]+(?=\d)|(?<=\d)[\s,]+(?=[[:alpha:]])/, $string;