Select Code to Download

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

  my $default = '-\@\w. ';
  $checks{'charclass'} ||= $default;
...
   if ($checks{'data'} =~ /[^$re]/) {
      bail_out("Bad data");
   }