$1 wird nicht gelöscht ?

[Christian Kruse]

Hoi,

foreach ($in =~ /(<reply>.+?</reply>)/sg)  {
    push @replies, $1;
    }

Warum schreibst du nicht

my @replies = $in =~ /(<reply>.+?</reply>)/sg);

IMHO viel kuerzer und ausserdem *sehr* schnell.

Gruesse,
 CK