Select Code to Download

my $names = "1Petrus2 Joh4an Smit 2johnny99 Julius 789";
my @words = split /\s+/, $names;
my @numwords = grep /\d/, @words;