$newpath=join("\",@dirs);

##</code><code>##

$filepath=~s{/}{\\}g;