BEGIN{
    *CORE::GLOBAL::substr=sub($$$) { die };
}
print substr 'foo',2,3;