Comme ça vite fait

Une solution, loin d'être optimisée... J'suis sûr que qqun va te faire un truc en 3 lignes ! Bon de toute façon tu verra peut être meme pas mon commentaire.... grrrrr je démarre encore à -1.

--- SCRIPT PERL ---

#!/usr/bin/perl

my $inFile = $ARGV[0];
my $searchWord = $ARGV[1];

if(!open(FIC, $inFile)) {
    print "open error \n";
    exit(1);
}

@lines = <FIC>;
close(FIC);

foreach $i (@lines) {
    @words = split(/\s/, $i);
    
    foreach $j (@words) {
        if($j =~ /^$searchWord[0-9]+$/) {
            print $j."\n";
        }
    }
}

---------------------------

fichier_entrée contient :
salut ca va toto1 bien toto2 quoi moi je toto3 sais toto4 pas quoi toto5 fouttre héhéhé ouai toto6

$ ./script.pl fichier_entrée toto > fichier_sortie
$ cat fichier_sortie
toto1
toto2
toto3
toto4
toto5
toto6