Problem mit Tie::file und zeilenende

[Dauna]

servus!

sooooo nachdem ich mich jetzt länger mit dem neuen plan beschäftige steht schon das nächste problem vor der tür. also meine datei sieht jetzt so aus

#######################################################
<username>Dauna</username>
<name>Nicole</name>
<alter>18</alter>
<sonstiges>perl</sonstiges>
#######################################################
(ohne die rauten (#))

Das ändern geht leicht nur das aufrufen ist für mich unmöglich.
Also ich möchte jetzt zum beispiel "Nicole" angezeigt bekommen dazu schreib ich die datei beziehungsweise den namensraum in ein array und splitte ihn, mein versuch sieht so aus:

#!/usr/bin/perl -w

use strict;

open (LIST, "<list.txt");

while (<LIST>) {
if ($_ =~ m/<username>Dauna</username>/i) {
my @ke = split/<\w+>\w+</\w+>\s+/, $_;
print "$ke[0]\n"
print "$ke[1]\n";

usw.

}
}
close LIST;

aber das ist natürlich ein komplett falscher ansatz das merk ich selber :-(

langsam mach ich mich etwas peinlich hier ich total noob hehe

danke!