use List::Util qw(max);$input=<>.<>;print max (map {length($_)} $input=~/o+/g);