Help for this page

Select Code to Download

Select or download this

use strict;
use diagnostics;

...
close $fh;

print "Found $matches matches.\n";