Select Code to Download

@test = split (//,$something);
foreach (@test) {print "$_\n";}

$something =~ /\0//g;