use strict;
use warnings;

use feature 'say';

use File::Copy;
use File::Spec::Functions;
use File::Find::Rule;
use File::Path qw(make_path);
use Cwd;

my $pwd = cwd();
my $dir = catdir($pwd,'source');

my $rule = File::Find::Rule->new;
$rule->file;
$rule->maxdepth(1);
my @files = $rule->in($dir);

foreach my $file (@files) {
	my ($extension) = ($file =~ m/.+\.(.+)/);
	my $subdir = catdir($dir,$extension);
	
	if (!(-d $subdir)) {make_path($subdir);}
	copy($file,$subdir);
}