#!/usr/bin/perl

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

my $base    = "/home/sthoenna/bleadperl/perl";

find(\&wanted, $base);

sub wanted {
   return unless ( -f "$File::Find::name" and $File::Find::name !~ m!/Encode/! )
;

   my $name  = "$File::Find::name";

   my $out   = join '.', grep defined, reverse( (split(m!/!, $name))[4..7] );
   print "$out\n";
}