I'd prefer Marshall's approach of using a grep-like utility if you have one, but if not:

c:\@Work\Perl\monks>grep -c "xms;$" elide_lines.pl.bak
2

c:\@Work\Perl\monks>perl -ne "BEGIN { $AP = shift } $n++ if /$AP/; END
+ { print $n }"  "xms;$"  elide_lines.pl.bak
2
[download]