perl -MData::Dumper -e '
$str = "             STRING      "; 
@ar = split(/\s+/,$str); 
print Dumper \@ar;'

##</code><code>##

$VAR1 = [
          '',
          'STRING'
        ];

##</code><code>##

$VAR1 = [
          'STRING'
        ];