print $wfh if /\bterminal length\b/i .. /^\n*$/;

##</code><code>##

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