my %seperators = (
    'Linux' => '/',
    'MSWin32' => '\\',
    'MacOS' => '/',
);

my $op = quotemeta($seperators{$^O} || '/');