Select Code to Download

use strict;
use warnings;
...
my $str = 'command1 command2 command3 "command4 --some-arg arg --some-
+other-arg 2" command5';
my @words = shellwords($str);
print Dumper(\@words);

$VAR1 = [
          'command1',
...
          'command4 --some-arg arg --some-other-arg 2',
          'command5'
        ];