Substitution de motif avec Perl

lami20j@debian:~$ cat texte.txt
Personnage Dupont Emile
Personnage2 Duval Daniel
lami20j@debian:~$ cat nom.pl
#!/usr/bin/perl
use strict;use warnings;

open TX,"texte.txt"      or die "E/S : texte.txt $!\n";
open RES,">resultat.txt" or die "E/S : resultat.txt $!\n";

my $np=qr/^.+?  # n'importe quels caractères
                # mais n'oubliont pas la gurmandise de +
          ([A-Z]{1}[a-z]+) # nom
          \s+              # séparateur
          ([A-Z]{1}[a-z]+) # prénom
        /x; # le modificateur x permet d'inserer
            # des espaces dans regex sans être pris pour motif
            # en ce cas pour espace il faut utiliser \s
            # ça permet de mettre des comméntaires dans regex

print "$np\n\n"; # juste pour voir ce que contient
                 # l'objet regex
while (<TX>)
{
  if(/$np/) { # ici il ne faut plus mettre des paranthèses
              # qr s'en occupe.
    my $ligne="<Nom>" . $1 . "</Prenom>";
    print RES $ligne,"\n";
  }
}
__END__

lami20j@debian:~$ perl nom.pl
(?x-ism:^.+?  # n'importe quels caractères
                # mais n'oubliont pas la gurmandise de +
          ([A-Z]{1}[a-z]+) # nom
          \s+              # séparateur
          ([A-Z]{1}[a-z]+) # prénom
        )

lami20j@debian:~$ cat resultat.txt
<Nom>Dupont</Prenom>
<Nom>Duval</Prenom>
lami20j@debian:~$

lami20j@debian:~$ cat nom.pl
#!/usr/bin/perl
use strict;use warnings;

open TX,"texte.txt"      or die "E/S : texte.txt $!\n";
open RES,">resultat.txt" or die "E/S : resultat.txt $!\n";

my $np=qr/^(.+?)  # n'importe quels caractères
                # mais n'oubliont pas la gurmandise de +
          ([A-Z]{1}[a-z]+) # nom
          \s+              # séparateur
          ([A-Z]{1}[a-z]+) # prénom
          (.*)$
        /x; # le modificateur x permet d'inserer
            # des espaces dans regex sans être pris pour motif
            # en ce cas pour espace il faut utiliser \s
            # ça permet de mettre des comméntaires dans regex

print "$np\n\n"; # juste pour voir ce que contient
                 # l'objet regex
while (<TX>)
{
  s/$np/$1<Nom>$2 $3<\/Prenom>$4/;
  print RES ;
}
__END__

lami20j@debian:~$ perl nom.pl
(?x-ism:^(.+?)  # n'importe quels caractères
                # mais n'oubliont pas la gurmandise de +
          ([A-Z]{1}[a-z]+) # nom
          \s+              # séparateur
          ([A-Z]{1}[a-z]+) # prénom
          (.*)$
        )

lami20j@debian:~$ cat resultat.txt
-Bonjour M. <Nom>Lemarchand Etienne</Prenom>
-Avez vous rencontré votre superieur <Nom>Lefevre Jean</Prenom>.

lami20j@debian:~$ cat nom.pl
#!/usr/bin/perl
use strict;use warnings;

open TX,"texte.txt"      or die "E/S : texte.txt $!\n";
open RES,">resultat.txt" or die "E/S : resultat.txt $!\n";

my $np=qr/^(.+?)
          ([A-Z]{1}[a-z]+)
          \s+
          ([A-Z]{1}[a-z]+)
          (.*)$
        /x;
my $abrev = qr/\b([A-Z]{2,})\b/;

while (<TX>)
{
  s/$np/$1<Nom>$2 $3<\/Prenom>$4/;
  s/$abrev/<abrev>$1<\/abrev>/g;
  print RES ;
}
__END__

lami20j@debian:~$ perl nom.pl
lami20j@debian:~$ cat resultat.txt
-Bonjour M. <Nom>Lemarchand Etienne</Prenom>
-Avez vous rencontré votre superieur <Nom>Lefevre Jean</Prenom>.
Au fait les mots en majuscule que je cherche n'ont rien à voir avec les noms et prénoms. C'est plutot les abreviations et cycle comme <abrev>ONU</abrev>(Organisation des nations unis) ou <abrev>INSA</abrev>, <abrev>POLYTECH</abrev>, <abrev>SNCF</abrev>.