Re:real simple perl script for my own whitespace l (Score 3, Interesting)

doh.. lost my angular braces

$prog = "";
while(<>) {
chop();
$prog = sprintf("%s%c", $prog, length($_));
}

eval $prog;