> cat test.a ; perl test.a
#!/usr/bin/perl -l
use strict;
use warnings;

my @paths = (
        'C:\doof.txt',
        'C:/undoof.txt',
        '\\noch\doofer.txt',
        '//nicht/doof.txt',
);


for my $p ( @paths ) {
  print $p;
}

__END__
C:\doof.txt
C:/undoof.txt
\noch\doofer.txt
//nicht/doof.txt