$SIG{__WARN__} = sub {
   my $wn = shift;
   handle_this_error() if $wn =~ /The_Error_Your_After/i;
   warn $wn;
 };