my @args = qw/ perl -i -ne 'print unless eof' filename /;
print join "|", @args;