# generate numeric comparison routines
sub build_num_comp {
  my ($cexp, $cval) = @_;
  if   ($cexp eq 'gt') { return sub { return ($_[0] >  $cval); } }
  elsif($cexp eq 'lt') { return sub { return ($_[0] <  $cval); } }
  elsif($cexp eq 'ge') { return sub { return ($_[0] >= $cval); } }
  elsif($cexp eq 'le') { return sub { return ($_[0] <= $cval); } }
  elsif($cexp eq 'eq') { return sub { return ($_[0] == $cval); } }
  elsif($cexp eq 'ne') { return sub { return ($_[0] != $cval); } }
  elsif($cexp eq 're') { return sub { return ($_[0] =~ /$cval/); } }
  elsif($cexp eq 'nr') { return sub { return ($_[0] !~ /$cval/); } }
  else { print "Invalid comparison, use ax -h for help.\n"; exit(1); }
}
[download]

sub build_num_comp {
   my $truth = eval "@_";
   die "Invalid comparison, use ax -h for help.\n" if $@;
   return sub { $truth };
}

print build_num_comp(5,'==',5)->() ? 'yes' : 'no';
print build_num_comp(5,'!=',5)->() ? 'yes' : 'no';
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)