Use Tools::ssubstr instead of substr

Use Tools::ssubstr instead of substr