$dir =~ s/^$PodDir/$HTMLDir/o;

##</code><code>##

# fix up the Win32 paths
$PodDir  =~ s( \\ )(/)gx;
$HTMLDir =~ s( \\ )(/)gx;