$char = <>; chomp($char); print length $char;