sub get_path_separator {
    for ($^O) {    # stores the OS in $_ to simplify the regex syntax
        return ':'  if /mac/i;
        return '/'  if /cyg/i;
        return '\\' if /win/i;
        return '.'  if /vms/i;
        return '/';
    }
}

##</code><code>##

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