my $copy = $main_variable ;
$copy =~ s/my name/dumb me/g ;