use strict;

my %tests = (
  qr/^[0-9]+$/ => 'positive integer',
  qr/co/i      => 'company/corporation',
);

foreach my $term qw(12345 Company Jones) {
  foreach my $key (keys %tests) {
    print "$term is a $tests{$key}\n" if $term =~ $key;
  }
}