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