##
$ perl -le'print "[$_]" for @ARGV' -- \
perl -le 'if (-d "/usr") { print 'yes';}'
[perl]
[-le]
[if (-d "/usr") { print yes;}]
####
'if (-d "/usr") { print '\''yes\''';}'
####
$ perl -le'print "[$_]" for @ARGV' -- \
perl -le 'if (-d "/usr") { print '\''yes'\'';}'
[perl]
[-le]
[if (-d "/usr") { print 'yes';}]