#use wml::std::page
#use wml::fmt::isolatin

<page title="Meine email Adressen">

<h3>Hier können Sie mich überall erreichen</h3>
  
<p><ul>
<: open EMAIL, "< adressen";
   while (<EMAIL>) {
     chop;
     s/@/ \<em\>AT\<\/em\> /g;
     s/\./ \<em\>PUNKT\<\/em\> /g;
     s/\-/ \<em\>STRICH\<\/em\> /g;
     ($ort, $addy) = split /\t/;
     print "<li><em>$ort</em> : <code>$addy</code></li>\n";
   } :>
</ul>