sub test {
   my $a = shift;
   $a =~ /(.)(.)(.)(..)(.+)/;

   return 0 if ($1 !~ /(a)/);
   return 0 if ($2 !~ /(d|p|t)/);
   return 0 if ($3 !~ /(a|h|r|s|t)/);
   return 0 if ($4 !~ /(aw|er|dd|cb|aa)/);

}