print "Num. Line : $. - Occ : $counter2\n";