eval { somefunc() );
if( $@ =~ m[^MyModule::Error002] ) {
    ...
};