C:\elmPaul\jod25573786-2k2
C:\elmPaul\jod25573786-2k2\wed25573786-2k2

##</code><code>##

finddepth (\&update_file , "C:\\elmPaul" );

sub update_file 
{  
    if( /(.*)$old_hostname(.*)/i )
       {
  $concat = "$1$new_hostname$2";  
 rename($_, $concat) || print "error can't renames:$!";       
        }  

##</code><code>##

sub update_file 
{  
    if( /(.*?)$old_hostname(.*?)/i )
       {
  $concat = "$1$new_hostname$2";  
 rename($_, $concat) || print "error can't renames:$!";       
        }