1-23-abc45 (11:01)    ABC SET foo foo foo.
Foo data foo.
--
1-23-cba45 (12:02)     ABC RUN foo foo foo.
Foo data foo.
--
2-34-xyz21 (12:03)     ABC SET foo foo foo.
Foo data foo.
!

##</code><code>##

use strict;

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