#!/usr/bin/perl -w
use strict;
use File::Find;

my $muster = '\.xls';
my @files;

find(\&dateisuche, "./");

sub dateisuche {
	return unless /$muster$/i;
	
	push @files, $_;
	print "$_\n";
}