eval {
    $code_ref->();
};
if ( my $e = $@ ) { 
    if( UNIVERSAL::isa($e, 'Exception::Class') { 
        # handle exception here
    } else { 
        # parse string from die
    }
}