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