You want to print the lines to both the console and the file?

Replace the print statement with this block:

if (/\bterminal length\b/i .. /^\n*$/){
    print $wfh $_;
    print;
}
[download]