1
2
3
4
5
6

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!";
  }
}

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]