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