my $string = join \000, @code; $string =~ s!("\w+")!$1!g; @newcode = split /\000/, $string;