$ perl -MO=Deparse -e 'length'
length $_;