my $default = '-\@\w. ';
  $checks{'charclass'} ||= $default;
  my $re = qr/$checks{'charclass'}/is;

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