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

##</code><code>##

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