in reply to $File::Find::Parent desired

No. I can't find $File::Find::parent in the File::Find manpage, too. What should "$parent" contain?

Perhaps you're looking for File::Spec's splitdir() method and:

my $parent = ( File::Spec->splitdir( $File::Find::dir ) )[-1]; if( $parent eq 'data' ){ # and so on ...

HTH

--
http://fruiture.de