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