$ perl -e "print q(a) & q(ab), qq(\n)"
a