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