perl -nE'$l=y///c;$m=$l if$l>$m;END{say$m}' file.txt