chomp $_;
 my $line = $_;
 my @array =
  map {
   s/^\s+//;  # strip leading spaces
   s/\s+$//;  # strip tailing spaces
   $_         # return the modified string
  }
 split '\s+', $line;