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