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