diff --git a/build.xml b/build.xml
index 68ae0f2c..e3651d4e 100644
--- a/build.xml
+++ b/build.xml
@@ -1261,6 +1261,15 @@
         </exec>
     </target>
 
+    <target name="extract.locs.noports" depends="flow.uk.collect">
+        <echo>Extracting TLS locations</echo>
+        <exec executable="perl" dir="${build.dir}"
+            output="${build.dir}/locations_noports.txt">
+            <arg value="${build.dir}/extract_locs_noports.pl"/>
+        </exec>
+    </target>
+    
+
     <!--
         Utility to fold overlong embedded certificates.
     -->
diff --git a/build/extract_locs_noports.pl b/build/extract_locs_noports.pl
new file mode 100755
index 00000000..68eeb366
--- /dev/null
+++ b/build/extract_locs_noports.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use Xalan;
+
+open(XML, xalanCall . " -IN ../mdx/uk/collected.xml -XSL extract_locs.xsl|") || die "could not open input file";
+while (<XML>) {
+    chop;
+    if (/^https:\/\/([^\/:]+)(:\d+)?(\/|$)/) {
+        my $location = $1;
+        $locations{$location} = 1;
+    }
+}
+close XML;
+
+foreach $loc (sort keys %locations) {
+    if ($loc =~ /([^:]+)/) {
+        print "$1\n";
+    }
+}