#!/usr/bin/perl -w

use warnings;
use File::Find;
use File::Copy;
use strict;

my @directorie = ("K:/Test/");

my $muster = '.*jpg';
find(\&wanted, @directorie);
    

sub wanted 
{
if ( $File::Find::name =~ /^$muster$/ ) 
{
	move($_, 'K:/Bilder/' . $File::Find::name) or warn "$File::Find::name: $!";
}
return
}