print "@array"; #### local $" = ''; print "@array"; #### @array = grep !/^\s+$/, @array; #### @code = map { s/^\s+//; s/\s+$//; $_ } @array;