Perl Count Number Of Matches