-ap056 sub b{$_=lc;y/aeiouy//."/".y/a-z0-
9//}$c=$b=':^I';map{$c.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,b}@F;$c
=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=(@F."$c
".b."$b
")x!!@F;s/ *$//mg

##</code><code>##

-n0 for$n(A..Z){$;[pos=-split/$n/i].="$n $#_\n"x!!$#_}print@

##</code><code>##

y/01/ #/,@F=/.../g,print"@F[@_]
"for unpack'(b30)*','\xE7\xDF\xFF?%\xD9\x84-
\xE5\xFF\x9F?eH\x96%\xE7\xCF\x9F?'x!!split//,pop

##</code><code>##

-nl sub J{map$_[$s-$_].=pop,1..$s;@_}$s=8;sub
S{/./g;$&^t||!($s/=2)?($&x$s)x$s:(J(&S,&S),J&S,&S)x!!($s*=2)}print for S

##</code><code>##

-pa ($~,$;,@F)=sort{$a-$b}@F,($c=$~+$;)x!!s/\b$~\b|\b($;)\b/$c,$#-
/gwhile$;;s/$c|,//g

##</code><code>##

sub
b{[@b=(abs||No,bottle."s"x!!++$_,of,beer),on,the,wall]}print
"@{+b},\n@b,\nTake one down, pass it around,\n@{+b}.\n"
for-pop||-99..-1