#!/usr/bin/perl

print "Hallo World\n";

my @FileList = `find -name 'backup_settings'`;

foreach (@FileList) {
  chomp;
  $OrigFile=$_;
  if (m/(.*)backup_settings/) 
    {
      $_=$1;
      s/^\.//g;
      s/\//\./g;
      s/\.$//;
      $DirString=$_;
    };
  print "copy $OrigFile backup_settings$DirString \n";
  system ("cp $OrigFile backup_settings$DirString");  
}