$curvalue =~ s/\s/!/g;#Verzweiflungsversch
               
 print "Bau/Raum: '$curvalue' \t ";
               
 if ($curvalue =~ m?^\s*[^/]+\s*/\s*([^/]+)\s*$?) {
               
     $curvalue=$1;
               
     print "getroffen\n";
               
 }