@dirs = split qr{[\\/]}, $path;
$file = pop @dirs unless -d $path;

##</code><code>##

$path = '/' . join '/', @dirs, ($file // '');