...
   my $address = ... ;

   my ($street, $n, $number) = $address =~ /(.+?)            # first group
                                            (nr\.\s+ | \s+)  # number prefix?
                                            [A-z]+           # letters preceeding number
                                            (\d+)-           # number
                                           /ix;
   print "STREET: $street, N: $n, NUMBER: $number\n"
   ...