in reply to Wish to keep only those lines which start with letter s, and delete all other lines.

substr anyone? Assuming file already opened successfully...
while ( <THEFILE> ) {
   next if ( substr ( $_, 0, 1 ) =~ /s/i );
   # now do stuff with the lines you do want
}

[download]
  • Comment on Re: Wish to keep only those lines which start with letter s, and delete all other lines.
  • Select or Download Code

In Section Seekers of Perl Wisdom