use File::Spec::Functions;

my @path = qw(
    C:\WINNT\
    C:/WINNT/
);

print "$_ => ", canonpath($_),$/ for @path;
__END__
C:\WINNT\ => C:\WINNT
C:/WINNT/ => C:\WINNT