Teile von Linien in einzelne Strings in Perl

Question

mein Code Hier ist zur Zeit:

open (MYFILE, "text.txt"); 
    while(<MYFILE>){ 
     split; 
     if (m,test,){ 
      print $_; 
     } 
    } 
    close(MYFILE); 

Also, wenn meine test.txt Datei hatte folgende:

line 1: this is a test line 
line 2: this has nothing 
line 3: oh here's a test 

Meine Ausgabe ist:

line 1: this is a testword line 
line 3: oh here's a testphrase 

Mein gewünschter Ausgang gibt nur das Wort mit "Test" aus oder

line 1: testword 
line 3: testphrase 

Ich dachte mit "Split", es ändert sich wie Perl liest die Eingabe anstelle von Zeile für Zeile jetzt wäre es Wort für Wort, aber es scheint nicht zu funktionieren. Irgendwelche Gedanken oder Vorschläge?

Answer 1

open (MYFILE, "text.txt"); 
while(<MYFILE>) { 
    print grep /test/, split; 
} 
close(MYFILE);