{
   no warnings 'substr';
   ... use substr here ...
}