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