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