#!/usr/bin/perl -p
s/(\w)/rcase($1)/ge;
s/e/3/gi;
s/a/4/gi;
s/o/0/gi;
s/i/|/gi;
s/a/@/gi;
s/l/1/g;
s/s/\$/g;
sub rcase { rand(100) < 20 ? "\u$_[0]" : "\l$_[0]" }