#!/lang/perl -n
BEGIN { $c = 0 }
$c1 = length($_) - 1;
if ($c1 > $c) { $c = $c1 }
END { print $c }