use strict;
use warnings;
my $location = "some location";
my $dirchar = "\\";
$location = $location.$dirchar if ($location !~ /{$dirchar}$/);
print "Hier ist es : ".$location."\n";