$line =~ s/^\s+//;  # strip leading whitespace from the line
$line =~ s/\s+\z//; # strip trailing whitespace from the line
my @aFields = split(/\s+/,$line);   #extract words