sub encode { join '', map { /[\w\d ]/ ? $_ : '&#' . ord() . ';' } split //, shift; }