#           delimiters
#             |  |  |
#             v  v  v
$localdir =~ s/\//\\/g;
#              ^^ ^^
#              |   |
#    search part   replacement

##</code><code>##

$localdir =~ s{\\}{/}g;

##</code><code>##

use warnings;
use strict;
use Path::Class qw/foreign_file foreign_dir/;

my $file = foreign_file('Win32', "..\\Hello\\World.txt");
print $file->as_foreign('Unix'), "\n"; # prints "../Hello/World.txt"