#! /usr/bin/perl 

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

my $dir = './testdir'; 
my @dirs; 
find(\&get_dir,$dir); 

sub get_dir{ 
  rename($_, $new_filename) if(-f $File::Find::name && $_ =~ /DEIN_MUSTER/); 
}