my $prev_handler = $SIG{__WARN__};
local $SIG{__WARN__} = sub {
   return if $_[0] =~ /^Deep recursion /;

   local $SIG{__WARN__} = $prev_handler;
   warn($_[0]);
};