use Carp ();
$SIG{__WARN__} = \&Carp::cluck;

eval {
    use warnings;
    undef =~ m#1#;
}