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