Select Code to Download

$\="\n";
while (<>) {
...
    @s=split /\s{3,}/;         # split the input into phrases
    print for grep /NOTICE/, @s;   # print the matches
}