Select Code to Download

(.*?)        ""
(nr\.)*      ""
\b\D*        "aaa. bbb ccc nr. ddd"
(\d+)        "23"
[\d\w-]+\b$  "-56"

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