<?xml version="1.0" encoding="windows-1252"?>
<node id="632655" title="Re: Extract Host, Logical Host from URL" created="2007-08-15 01:48:14" updated="2007-08-14 21:48:14">
<type id="11">
note</type>
<author id="123953">
strat</author>
<data>
<field name="doctext">
&lt;p&gt;see [cpan://URI] for parsing URIs. If you just want to get the "main" domain, you could try something like 
&lt;code&gt; join(".", ( split(/\./, $domains ) )[-2,-1] )&lt;/code&gt; (if I understand you correctly)&lt;/p&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-123953"&gt;
&lt;P&gt;
Best regards,&lt;BR&gt;
perl -e "s&gt;&gt;*F&gt;e=&gt;y)\*martinF)stronat)=&gt;print,print v8.8.8.32.11.32"
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
632539</field>
<field name="parent_node">
632539</field>
</data>
</node>
