>perl -MO=Deparse -ne
"$s=<>;<>;<>;chomp($s);print length($s).\"\n\";
"
LINE: while (defined($_ = <ARGV>)) {
    $s = <ARGV>;
    <ARGV>;
    <ARGV>;
    chomp $s;
    print length($s) . "\n";
}
-e syntax OK