sub substr { my($what,$where,$howmuch) = @_; unpack("x$where a$howmuch", $what); }