Select Code to Download

$s = join('|',
   map { local $_=$_; s/\^/^1/g; s/\|/^2/g; $_ }
      %test_hash
);

%test_hash =  map { local $_=$_; s/\^1/^/g; s/\^2/|/g; $_ }
   split(/\|/, $s);

use Data::Dumper ();

...
                   'lime' => 'green',
                   'junk2' => 'bla|bla'
                 };