my $copy = '' . $text

##</code><code>##

use Storable qw(dclone);

...

my $deepcopy = dclone($original);