Parser un fichier txt en Perl

Bonjour,

Je souhaite faire un parser en Perl afin de parcourir un fichier, d'y récupérer des informations, puis les écrire dans un autre, pour l'instant quelque chose de basique..

Je débute complétement le Perl donc je suis un peu perdu.

Par exemple mon fichier qui se faire lire par le parser est :

aaaaatest32aaaaa
zzzztest24zzzzz
ztest12zzzzzz
bbbbbbtest44

Voici le début de mon code :

#!usr/bin/perl -w 
use strict; 
user warning; 

my $var1 = ""; 

#print "Début du traitement" 

open FICHIER,"<monfichier.txt" or die "E/S : $!\n"; 
open ECRIRE,">montest.txt" or dir ("Erreur de création de  montest.txt"); 
while (my $ligne = <FICHIER>){ 
 if ($ligne =~ /\s*(test\2w*)/{ 
 $var1 = "recherche du mot test dans la ligne " : $1; 
 } 
  
close FICHIER; 
close ECRIRE; 
#print "Fin du traitement" 

Je voudrais donc que dans mon fichier montest.txt soit écrit :

test32
test24
test12
test44


Merci d'avance pour votre aide pour corriger mon code qui ne fonctionne pas et d'éventuelle évolutions !