...
   my ($street, $number) = $address =~ /(.+?)             # first group
                                        (?:\s+ nr \.)?    # any number prefix?
                                        \s+ [A-z]+ (\d+)  # number follows alpha
                                       /xi;
   print "STREET: $street, NUMBER: $number\n";
   ...