my $var = substr($location,length($location)-1,1);
    print "\n\nVAR:::   $var\n\n";
     if ($var == "\\"){
       print "HIER IS ES\n\n";
      }
      else{
      $location = $location+"\\";
      print "NEU:: $location\n\n" ;
      }