Select Code to Download

print "@array";

local $" = '';
print "@array";

@array = grep !/^\s+$/, @array;

@code = map { s/^\s+//; s/\s+$//; $_ } @array;