use strict;
use warnings;

$SIG{__DIE__} = sub {
  my $wn = shift;
  return if $wn =~ /Use of uninitialized value/i;    #Most annoying
  return if $wn =~ /name "(?:.+?)" used only once/i; #Very annoying
  warn $wn;
};

print 123 + undef, "\n";  # We want to hide this warning.
print 123 + 'abc', "\n";  # We want to see  this warning.

##</code><code>##

Argument "abc" isn't numeric in addition (+) at 591379.pl line 12.
Use of uninitialized value in addition (+) at 591379.pl line 11.
123
123

##</code><code>##

Argument "abc" isn't numeric in addition (+) at 591379.pl line 12.
123
123