okay, 43 characters. not a winner. but it works under strict and warnings, and i just love the way it looks.

$_="$[thisisperl";print length while chop;
[download]

~Particle