Select Code to Download

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

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

$VAR1 = [
          'STRING'
        ];