my ($street, $number) = $address =~ /^(.*?)(\d+)[\d\w-]+\b$/;
$street =~ s/(?:nr\.)*$//g;