my %re_lookup = (
   ... => qr/.../,
   ... => qr/.../,
   ... => qr/.../,
);

/$re_lookup{...}/ or die("Bad data");
print "Caught $1\n"