>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my $data = '1 2 3 4';
 my @a = split /\s+/, $data;
 print Dumper \@a;
"
$VAR1 = [
          '1',
          '2',
          '3',
          '4'
        ];