I have a string with names in it, some of these names have digits in them. So i want to find all the names with exactly 1 digit. f.e. Bill3, but not Bill33. So i try to use a regex for this. Here is my code:

use strict;
use warnings;

my $text = "John P5ete Andrew Richard58 Nic4k Le7on5";
my @names = $text =~ /\b\w*\d\w*\b/g; 
print "@names\n";
[download]

It outputs: P5ete Richard58 Nic4k Le7on5
This should be: P5ete Nic4k
Maybe someone can tell me why this is? Ty.