>perl -e "foreach (@ARGV){print qq('$_'\n);}" "A A\\" B"
'A A\'
'B'