perl -E '$SIG{__WARN__}=sub{say "handler";warn $_[0] if $_[0]!~/^A thread/}; warn "blah"; warn "A thread";'
handler
blah at -e line 1.
handler