Select Code to Download

#!/usr/bin/perl
use strict;
...
    local $/ = "\n\n";
    print grep /\b(?:third|four)\b/i, <>;    
}

C:\Old_Data\perlp>perl test3.pl testlines.txt
This is line one.
Line Two is this.
Third line starts here.
This is line four.