$text =~ s/
          (.+?)            (?:\s*\n)+
      ((?: \d+ (?:\sPSI)? (?:\s*\n)+ ){4})
     /push @r, [ $1, $2 =~ m|\d+ (?:\sPSI)?|xg ]/esgx;