while (<>) {                              # επανάλαβε για κάθε γραμμή εισόδου
    next if !/<[hH][123]>/;                 # άλμα στην επόμενη επανάληψη
    while (!/<\/[hH][123]>/) { $_ .= <>; }  # πρόσθεσε επόμενη γραμμή στο $_
    s/.*?(<[hH][123]>.*?<\/[hH][123]>)//s;
        # ελάχιστο ταίριασμα; η έκφραση με παρενθέσεις μπαίνει στο $1
    print $1, "\n";
    redo unless eof;    # συνέχισε χωρίς να διαβάσεις επόμενη γραμμή
}