I even tried making a copy of $text (my $copy = $text)

my $copy = '' . $text
should work.

If that doesn't help or if you need to copy structures, you can use the Storable modules dclone() function:

use Storable qw(dclone);

...

my $deepcopy = dclone($original);
[download]