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