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]

I worked it out and done steve. Thank you for the help. Am a beginner to perl steve so can you direct me how to learn perl and need much assistance on regular expression as well