- or download this
~$ perl -E 'system $^X, "-E", "say for \@ARGV", 1, qq(\x27), 2'
1
...
1
"
2
- or download this
>perl -E "system $^X, '-E', 'say for @ARGV', 1, qq(\x22), 2"
1
2
- or download this
>perl -E "system $^X, '-E', 'say for @ARGV', 1, qq(\\\x22), 2"
1
"
2