use Path::Class;
foreach $s ('x/y','x\y') {
  $dir=Path::Class:Dir->new($s)->as_foreign('Unix');
  print "$dir\n";
}

##</code><code>##

  x/y
  x/y

##</code><code>##

  x/y
  x\y