my @result = $prBoundaryString =~ m{$coord}g;
# check if scalar (@result / 2) % 2 == 1

# or

my $count = 0;
while ($prBoundaryString =~ m{$coord}g) {
    my ($x, $y) = ($1, $2);
    $count++;
}