foreach my $filename (@files) {

if (($filename =~ /\.txt$/) || ($filename eq ".") || ($filename eq "..")) { next; }

# alle anderen Dateien werden verschoben.	

}