perl -e 'print ""=~/foo/ and ""=~/bar/'