#!/usr/bin/perl
# Time-stamp: "2005-08-19 01:32:45 ADT"     sburke@cpan.org

$_ = lc(<<END);

Stal kalventu dranecult tonssak?
Litaritak, inuhannst slavatuk linesu?
Tolnsfen dets'n lad, belvens trunt,
filiradu lenish'ch renok'.
Luns fradsvats Redis Taresaval
enks talkents tretent,
blasal nentunlamt sloncha.

END

tr/a-z//cd;
s/[^aeiou][aeiou]/1/g;
tr/1/0/c;
s/(.{5})/pack("b8","${1}010")/eg;
print;
exit;

# For more fun along these lines, see /Disappearing Cryptography/,
# Peter Wayner, ISBN 0-12-738671-8
