perl -se "'A'=~/(A)/;print $1      " -- -1=OUCH!
    OUCH!

    perl -se "'A'=~/(A)/;print qq($1\n)" -- -1=OUCH!
    A