perl -e 'print ""=~/.*/ and ""=~/bar/'