#subroutine zur suche der erforderlichen Dateien
sub wanted
    {
    if( -f $File::Find::name)
        {    
        $helper=length($pfad);
        $Dateipfad=substr($File::Find::name,$helper);
        chomp ($Dateipfad);