my $bad;
if ($field{username} =~ /^(.*)$/) {
  $bad = $1;
};