my %validate = (
     INT => qr /^[+-]?\d+$/,
     DEC => qr /^[+-]?\d*\.?\d*$/,
     #etc.
);