[Perl]wyciaganie tekstu z pliku

[Gosik]

Witajcie!
Mam plik z danymi postaci:
<UCZEN nazwisko="LLL" nazwisko_rodowe="" imie="Dominik" imie2="Marcin" plec="męska" data_ur="1999-01-10" msc_ur="Bydgoszcz" msc_ur_m="Bydgoszczy" woj_ur="KUJAWSKO-POMORSKIE" kraj_ur="Polska" pesel="111"
<ADRES_U ktg="" miejscowosc="Torun" msc_m="Torun" ulica="R" nr_domu="1" nr_lok="4" kod="85-000" poczta="Torun" gmina="Torun" powiat="Bydgoszcz" woj="KUJAWSKO-POMORSKIE" kraj="Polska" e_mail="" />

itd.

Chciałabym wyciagnac z tego pliku tylko imie, nazwisko, ulice, nr_domu i nr_lok.

W tym celu probuje napisac skrypt, na poczatku chce wyciagnac tylko imie:

#!/usr/bin/perl

use strict;

open my $fh, '<', 'dane.txt' or die "open: $!";
chomp(my @data1 = <$fh>);
close($fh);


my  @x = grep {
    my $v=$_;
    $v =~ m/imie=.*/;
         
} @data1;

print @x;

Jednakze wyswietla mi wszystkie linie, ktore zawieraja imie.

Probowalam rowniez w taki sposob:

#!/usr/bin/perl

use strict;

my @dane;

open my $fh, '<', 'eksport_sou.xml' or die "open: $!";
chomp(my @data1 = <$fh>);
close($fh);

 my @tab = split/ /;

foreach (@tab){
 my $v =~/imie=.*/;
 push (@dane,$v);
}
 print @dane;

Jednakze w tej sytuacji nic nie jest wyswietlane.

Czy moglabym prosic o wskazowki jak poprawnie to powinnam uczynic?