1: 2: 3: 4: 5: 6: 7:
1: 2: 3:
mio ($match) = (=~ m. di $html {] * (?! " del size= \ d+") *> [del ^>] (. *?)}spettrografia di massa); =~ s di $match {(|\ n)+} {} g; stampa $match, “\ n„;