Hello All! Here is 149.23:
#!perl -ap056
sub
t{lc=~y/aeiouy//.v47.s/\w/$&/g}$_=/\./&&(@z=map//?t:$_^t^($_^=t^t),@F).": @F
".t.": @z
";y/\0/ /;s/( .{57})...+(.
.* .{0,56}\S+).*/$1..$2/
Unfortunately I don't know why it works.
---
Mtv Europe
