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

   local $\;
   print STDERR $_[0];
};