my $state = join("\n",map { s{^\./}{}; $_} @noCvsDirs);