@unhappy_events = ( add all unhappy events according to you )

if ( grep(/$i,@unhappy_events) ) {
    while ($i) { die(); }
}