perl -E'use List::Util qw(max); say max(map length, "GAAGANNNNNNNNNNACGCATACTACCGGTGCCCAGCTGCCATNNNNNNNNNNNNNNNNNNNNNATTCTTCT" =~ m/(N+)/g)'