Select Code to Download

sub test {
   my $a = shift;
...
   return 0 if ($third !~ /(a|h|r|s|t)/);
   return 0 if ($fourth !~ /(aw|er|dd|cb|aa)/);
}

sub test {
   my $a = shift;
   $a =~ /(a)(d|p|t)(a|h|r|s|t)(aw|er|dd|cb|aa)(.+)/;
}