my $newpath = join '\\', @dirs;
[download]

Or you could have just substituted,

$filepath =~ tr!/!\\!;
[download]

The doubled backslashes are needed because it is the escape character in perl quoting.