use File::Spec::Win32;
my $wdir = 'C/strawberry';
$wdir =~ /(.*)/;
print File::Spec::Win32->catfile('C:/cache', $1), "\n";