Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    my $matches = () = $nrt2 =~ /$hant/g;
    is ($matches, shift @counts, "Number of matches found for $hant");
}

nic@nic-VirtualBox:~/Desktop/5-27-17$ perl Counter.pl
1..612
...
#   at Counter.pl line 18.
#          got: '1'
#     expected: '4'

Number of matches found for Pacta12: 1 

Number of matches found for Armost1: 0