Perl date regexp

while () {
 if ($_ =~ /^(.+) (.+) (.+) (\[.+\]) (\".+\") (\d+) (\d+)$/) {
   ($remote, $hz1, $hz2, $date_a, $url, $code,$size) = ($1,$2,$3,$4,$5,$6,$7);
   if ($date_a =~ /^\[(.+)\/(.+)\/(\d+):(\d+):(\d+):(\d+)/) {
     ($day,$month,$year,$hour,$minute,$second) = ($1,$2,$3,$4,$5,$6);
   }
 }
}