Q:\>perl -e "$q=chr(34);system($^X, '-le', 'print for @ARGV', 1, 2, 3,qq(4 $q and $q 5))" 1 2 3 4 and 5