$ perl -MO=Deparse -e'
print length "Foo"'
print 3;
-e syntax OK