my $newpath = join '\\', @dirs;

##</code><code>##

$filepath =~ tr!/!\\!;