sub StrasseHausnummerSplit {

   my $str = shift;

   my ($strOnly, $hnrOnly) = ("", "");
   ($strOnly, $hnrOnly)    = $str =~ /(\d*\D*)(.*)/;
   $strOnly =~ s%\s+$%%g;

   $strOnly, $hnrOnly;

} # StrasseHausnummerSplit