my $dir= (File::Spec->splitdir($bla))[-3];