open(INPUT, "/path/$filename") or die "Can't open: $!";
while (<INPUT>) {
	if (/Mozilla/) {
		my $rest = (split(/Mozilla/, $_, 2))[1];
		if (length($rest) > 100) {
			# tag this line somehow
		}
	}
}