#!usr/bin/perl -w
use strict; 

my (@s) = m{
      >         # zamknicie poprzedniego znacznika
      ([^<]+)   # tekst (nazwa czci, np. q/BLACK CARTRIDGE/)
      <br>
      ([^<]+)   # numer czci, np. q/HP Part Number: HP C9724A/+
      (?:<[^>]+>\s*){4} # rozdzielone czterema znacznikami
      (\d+)       # pozostao procent 
      |           # --lub--
      (?:
            # inne wartoci tekstowe
            (?:
                Pages\sRemaining
                | Low\sReached
                | Serial\sNumber
                | Pages\sprinted\swith\sthis\ssupply
            ) : (?:\s*<[^>]+>){6}\s* # dwukropek, rozdzielone 6 znacznikami
        # lub w aktualnym elemencie po prostu to
        | Based\son\shistorical\s\S+\spage\scoverage\sof\s
        )
        (\w+) # i potrzebna nam warto
    }gx;

