qw(lpr -S SYSTEMX -P QGPL/SPYVIEW -o l $file)

##</code><code>##

(split(' ', 'lpr -S SYSTEMX -P QGPL/SPYVIEW -o l $file'))

##</code><code>##

my @options = (
   -S => 'SYSTEMX',
   -P => 'QGPL/SPYVIEW',
   -o => 'l',
);

# Avoid being confused for an option.
$file =~ s{^(?=-)}{./};

system(lpr => @options, $file)