for ($data) {
   pos() = 0

   for (;;) {
      /\G ... /xgc && do { ...; next };
      /\G ... /xgc && do { ...; next };
      /\G ... /xgc && do { ...; next };
      last;
}