foreach $file (<*>)
{
   if ($file =~ m~\d{2]_[^.]*$~)
   {
      print "$file \n";
   }
}