my @args = ( $^X, qw' -pi -e ',
$perlprogram,
'test.txt'
);
system {$args[0]} @args;