my $akt_root_dir  = 'G:\Dir';
my $save_root_dir = 'G:\Dir-Save';

print "Root_Dir       : $akt_root_dir\n";
print "Save_Dir       : $save_root_dir\n";
$akt_save_directory =  $akt_root_dir ;
$akt_save_directory   =~ s#$akt_root_dir#$save_root_dir#g;
print "Pfad-Save      : $akt_save_directory\n"