use File::Spec::Functions qw( catdir );

print catdir('/home/foo/abc', 'bar\baz');

##</code><code>##

/home/foo/abc/bar\baz