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