Select Code to Download

@cles = split(//, $key);
foreach $key2(@cles)
{
chr($key2); push(@key3, $key2);
}

@key3 = split(//, $key);