# Handlerroutine für Textinhalt registrieren
    $p->handler(
        text => sub { my $s = shift; push @replaced_data, $s; }, 
                "text" # <--- Decodierung ist nicht mehr notwendig