$ perl -MData::Dumper -e '
> $str = "             STRING      "; 
> @ar = split(" ", $str);
> print Dumper \@ar;'
$VAR1 = [
          'STRING'
        ];
$