<textarea name=report cols=121 rows=15>XXXXXXXXXXXXXXXX</textarea>

<textarea name=report cols=121 rows=15>Mein Name ist Peter</textarea>

if($res->content =~ /<hierdasregex>/) 
{
    open(FILE2,">>name") or die "Can\'t write name file";
    print FILE2 "$domains[$d]";
    print FILE2 Å©, # hier sollte eigl. die <dollar>1 stehen, aber das board spackt rum
    close(FILE2);
}

<textarea\sname=report\scols=\d\d\d\srows=\d\d>XXX</textarea>