rename dirs

gistfile1.pl

#!/usr/bin/env perl

use warnings;
use strict;

run() if !caller;

sub run {
    chdir '/home/timo/Pictures/Fiene/';
    my @files = <*>;
    for ( @files ) {
        next if !-d $_;
        next if $_ !~ /(\d{2})\.(\d{2})\.(\d{4})/;
        my $new = "$3.$2.$1";
        rename $_, $new or die "Cannot rename $_\n";
        print "renamed '$_' => '$new'\n";
    }
}