perl -MO=Concise -we 'warn "foo"=~/f./g'

##</code><code>##

perl -MO=Concise -we 'warn "foo"=~/f./'