D:\TEMP>perl -e "print shift" q^w
qw

D:\TEMP>perl -e "print shift" q^^w
q^w

D:\TEMP>perl -e "print shift" q^^^w
q^w