$names =~ /(\S*\d\S*)/g )

##</code><code>##

 $names =~ /(\S*\d+\S*)/g