sub work_with_tmp_line {
       my $typ=join('|',qw(socket 
                           ArrayIndexOutOfBounds
                           NullPointer
                           LockedPin
                           Authentication
                           BusinessService
                           IllegalState
                           NumberFormat
                           NoSuchElement
                           Remote
                           SQL
                           IO
                           FileNotFound));
     return (shift() =~ /((?:$typ)?Exception)/)?$1:'No Exception';
}