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