require bytes; sub emptystr(_) { no warnings 'uninitialized'; return !bytes::length($_[0]); }