my @args = ("command", "arg1", "arg2");
system(@args) == 0
    or die "system @args failed: $?";

##</code><code>##

my @args = qw(Runbatch.exe -j dpsgl -r dpstst);
system(@args) == 0
    or die "system @args failed: $?";

##</code><code>##

my @args = ('Runbatch.exe', '-j', 'dpsgl', '-r', 'dpstst');
system(@args) == 0
    or die "system @args failed: $?";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @args = ('Runbatch.exe -j dpsgl -r dpstst');
my @argsUpdated = qw(Runbatch.exe -j dpsgl -r dpstst);

print Dumper \@args, \@argsUpdated;

__END__

$ perl test.pl
$VAR1 = [
          'Runbatch.exe -j dpsgl -r dpstst'
        ];
$VAR2 = [
          'Runbatch.exe',
          '-j',
          'dpsgl',
          '-r',
          'dpstst'
        ];

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @args = ('Runbatch.exe -j dpsgl -r dpstst');
my @argsUpdated = ('Runbatch.exe', '-j', 'dpsgl', '-r', 'dpstst');

print Dumper \@args, \@argsUpdated;

__END__

$ perl test.pl
$VAR1 = [
          'Runbatch.exe -j dpsgl -r dpstst'
        ];
$VAR2 = [
          'Runbatch.exe',
          '-j',
          'dpsgl',
          '-r',
          'dpstst'
        ];