Select Code to Download

# perl -MData::Dumper -e '
> $str = "             STRING      ";
> $str =~ s/\s//g;
> push(@ar,$str);
> print Dumper \@ar;'

$VAR1 = [
          'STRING'
        ];