...
 warn sprintf "(Sub)string is [%s]", substr($js,$offset,20);
        die $@
...