use File::Spec::Functions;

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

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

You may also wish to checkout File::Find::Rule (some monks really like the interface).

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.