Select Code to Download

sub get_path_separator {
    for ($^O) {    # stores the OS in $_ to simplify the regex syntax
...
        return '/';
    }
}

$_ = $^O;
my $separator =  /mac/i ? ':'  :
                 /cyg/i ? '/'  :
                 /win/i ? '\\' :
                 '/';