use strict;
use warnings;

my $location = "some location\\";

my $var = substr($location,length($location)-1,1);

if ($var eq "\\"){
	print "HIER IS ES\n\n";
} else{
	$location = $location."\\";
    print "NEU:: $location\n\n" ;
}