Perl Number Of Matches