if ($checks{'data'} =~ /([^$checks{'regex'}])/) {
    bail_out("Bad input.");
  }