use warnings;
use strict;

$SIG{__WARN__} = sub {
    my $warn = shift;
    if ($warn !~ /^A thread exited/){
        print $warn;
    }
};

warn "blah blah warning\n";
warn "A thread exited...\n";