Hi

Need a perl script to read lines in a file, scan for a string named "APPLE" and write to different file the only lines containing the matched string.

Can you not use grep

grep 'APPLE' infile > outfile

hi..
#perl -wln -e 'print if /\bAPPLE\b/' your_file > new_file

open(IN,"<inputFile");
open(OUT,">outputFile");
while(<IN>)
{
     chomp;
     if( $_ =~ m/APPLE/ )
          print OUT $_;
}

It's a feature of many forum sites.

You can either type it in yourself:

[ code] <-- without the space
....
[/code]

Or you can click the # icon in the edit window, near the end of the line with B I U etc..

cout<<"Thank you. I will follow it from next time.";