Select Code to Download

my $var = "foo bar";
my @vals = split ' ', $var; # if you need something more complex, use 
+a regex for the pattern

foreach my $val (@vals) {
  print "Numeric\n" if $val =~ /^[0-9]{2}/;
}