$email_address = sanitize(
  data        => param('email'),
  field       => 'Email address',
  obligatory  => 1,
  min         => 9,
  value       => qr/^[a-zA-Z0-9\.]+\@[a-zA-Z0-9\.]+$/,
);
$color = sanitize(
  data        => param('color'),
  field       => 'Color',
  obligatory  => 1,
  min         => 3,
  max         => 4,
  value       => qr/^(?:red|green|blue)$/,
);