my $stillTainted = pack 'a*', $tainted;