Split 

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

my @parts = split / /, $line;

say Dumper(\@parts);

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