Split 

my $line = '  This is  a list of  words  ';

my @parts = split " ", $line;

say Dumper(\@parts);

$VAR1 = [
  'This',
  'is',
  'a',
  'list',
  'of',
  'words'
];