print "@array";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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