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