Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
        print $_;
    }
}

Select or download this

$ perl foo.pl foo.pl first second
my ($textFile, $firstString, $secondString) = @ARGV;
my ($textFile, $firstString, $secondString) = @ARGV;
    if(/$firstString/m){
    if(/$secondString/m){