Reading a line from a file

[ebmt2006]

How do I read a text from a file using perl? What I have is a bunch of text inside a file and I need to read that line I want ONLY.

What I have reads the whole content inside the file.

For example:
I have a file called “file.txt”
Inside that file
I have 200 lines of texts
I want to only to read
“The script is great good job” and
“The script is bad try agin”

And I want to print those two lines
To a file called “ file.out “

This is what I have so far and this reads out the whole text and prints the whole 200 lines of text.

#!/usr/bin/perl -w
#fh2.pl
 
open FH, 'file.txt' or die "open failed: $!";
open OUTFH, '> file.out' or die "open failed: $!";
 
while (<FH>) {
    print OUTFH "Message: $_";
}
close FH;
close OUTFH;
 

Thank you

[KevinADC]

#!/usr/bin/perl -w
#fh2.pl
 
open FH, 'file.txt' or die "open failed: $!";
open OUTFH, '> file.out' or die "open failed: $!";
 
while (<FH>) {
if (/The script is great good job/ or /The script is bad try again/) {
   print OUTFH "Message: $_";
}
close FH;
close OUTFH;