Help for this page

Select Code to Download


  1. or download this
    while (my $line = <$fh>){ 
    if ($line =~ /From\:/ && $line =~ /Subject\:/) { 
        print $line; 
    } 
}
  2. or download this
    while (my $line = <$fh>){ 
    if ($line =~ /From\:/ or $line =~ /Subject\:/) { 
        print $line; 
    } 
}
  3. or download this
    while (my $line = <$fh>){ 
    if ($line =~ /From:/ or $line =~ /Subject:/) { 
        print $line; 
    } 
}