#!/usr/bin/env perl

use v5.16;
use strict;


my $prBoundaryString = <<endPrBoundary;
'( (0.01 0.02) (0.0 1328.23) (0.01 0.02) )
endPrBoundary

say "prBoundaryString=$prBoundaryString";

   my ($coord,$coords);

   $coord = qr{
      \(\s*
         (?<x>[\-\.0-9]+)\s+ 
         (?<y>[\-\.0-9]+)\s*
      \)\s*
   }x;

   $coords = qr{
   (
      $coord
      $coord
      $coord
   ) | (
      $coord
      $coord
      $coord
      $coord
      $coord
   )
   }x;

   $prBoundaryString =~ m{
       \'\(\s*\s*
       $coords
       \)\s*$
   }x || die "parsePrBoundary: Error parsing prBoundary";

   say "-x0=$-{x}[0]";
   say "-y0=$-{y}[0]";
   say "-x1=$-{x}[1]";
   say "-y1=$-{y}[1]";
   say "-x2=$-{x}[2]";
   say "-y2=$-{y}[2]";