my @array = qw(01_Test 02_Tester 10_irgendwas);
foreach my $file (@array){
  if($file =~ /^\d{1,2}_\w+|^\w+$/){
    print "'$file' enthält eine Endung oder ist ungueltig!";
  }
}