#! perl -slw
use strict;
use Data::Dump qw[pp];

while( <> ) {
     my %record = m[
        <strong>([^<]+?):</strong>.+?
        >\s*([^<]+?)\s*</(?:a|td)>
    ]xg;
    pp \%record;
}

##</code><code>##

c:\test>junk72
{
  "E-Mail"     => "Keine Angabe",
  Fax          => "0000736111/680040",
  Internet     => "www.mysite.es",
  adresse_two  => "no_value",
  aresss       => "Friedrichstr. 70,&nbsp;73430&nbsp;Madrid",
  country      => "contryname",
  employees    => 259,
  name         => "myname one",
  officer      => "no_value",
  offices      => 8,
  telefone     => "0000736111/680040",
  "the office" => "mysite_two",
  type         => "type_one  (04313488)",
  worker       => "no_value",
}