Your second match overwrites the captured values from the first match. If you want to keep the values, you need to copy them. Also, you should always check whether your match succeeds before operating on values:

sub test {
   my $a = shift;
   die "Malformed value '$a'"
     if ($a !~ /(.)(.)(.)(..)(.+)/);

   my ($first,$second,$third,$fourth) = ($1,$2,$3,$4);

   return 0 if ($first !~ /(a)/);
   return 0 if ($second !~ /(d|p|t)/);
   return 0 if ($third !~ /(a|h|r|s|t)/);
   return 0 if ($fourth !~ /(aw|er|dd|cb|aa)/);
}
[download]

Alternatively, you could mush the five regular expressions into one:

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

You could optimize the regex further by using character classes, that is, writing [dpt] instead of d|p|t.

Thank you!!!

When the line return 0 if ($2 !~ /(d|p|t)/); is executed, $2 is undef because in the previous regex matching (the one in the line just above it!) has only one pair of parentheses. Use something like this (untested):

sub test {
   my $a = shift;
   my ($first, $second, $third, $fourth, $fifth) = $a =~ /(.)(.)(.)(..
+)(.+)/;

   return 0 if ($first  !~ /(a)/);
   return 0 if ($second !~ /(d|p|t)/);
   return 0 if ($third  !~ /(a|h|r|s|t)/);
   return 0 if ($fourth !~ /(aw|er|dd|cb|aa)/);
}
[download]

Thanks you!!