my %regex;
$regex[nameCheck]="qr/tr0nix/";
$regex[nrCheck]="qr/^\d$/";
$regex[emptyCheck]="qr/^$/";

sub check {
 my $line = shift;

 return if ($line =~ $regex[nameCheck]);
 if ($line =~ $regex[nrCheck]) {
  return if ($line =~ $regex[emptyCheck]);
 }
}