sub count_matches
{
    my ( $pattern, $string ) = @_;
    my $num_matches = 0;

    while( $string =~ m/$pattern/gi )
    {
        pos( $string ) = $-[0] + 1;
        $num_matches++
    }

    return $num_matches;
}