#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

my $wanted_matches = 2;
my $actual_matches = 0;
my $regex          = qr/ fancy regex here /mxis;

while ( my $line = <DATA> ) {
   chomp $line;

   if ( $line =~ $regex ){
      $actual_matches++;
   }
}

ok( $wanted_matches == $actual_matches, "Correct number of matches" );

done_testing;

__DATA__
line one..... 
line two..... 
....
line ten.....