:perl -v

This is perl 5, version 22, subversion 1 (v5.22.1) built for MSWin32-x64-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2015, Larry Wall

Binary build 2201 [299574] provided by ActiveState http://www.ActiveState.com
Built Jan  4 2016 12:12:58

##</code><code>##

open (FH, '<', "../Tests/10-million-combos.txt");
$counter=0;
$counter2=0;
while (<FH>) {
	if (/123456$/) {++$counter2;}
}
	print "\n";
print "Num. Line : $. - Occ : $counter2\n";
close FH;