my @parts = /
    ^
    (?:
      ($part)
      :
    ){5}
    ($part)
    $
  /x;