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