if ($nohead) {
        last if $line =~ /^\.\s*$/;
        $line =~ s/^\.\././;
        $fh ? (print $fh $line)
            : ($retval .= $line);
     }
     else {
        $line =~ /^\s*$/;
        $nohead = 0;
     }