use List::Util qw(max);$input=<>.<>;@days=map {length($_)} split(/x+/,$input);print max @days;