use strict;

my $value;
open IN, "data.file" or die "$!";
while (<IN>) {
       chomp;
       if (/match the lines/) {
              $value++;
       }
}
close IN or warn "$!";