The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

use strict;
use Cwd;
my $CWD = getcwd();
$CWD =~ s!^[a-z]:!!i;
$CWD =~ s!/!\\!g;
$CWD;