diff --git a/extract_urls.pl b/extract_urls.pl
new file mode 100644
index 0000000..0906012
--- /dev/null
+++ b/extract_urls.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Regexp::Common 'URI';
+use IO::All;
+
+foreach my $filename (@ARGV) {
+    my $content = io->file($filename)->slurp;
+    while ( $content =~ m/($RE{URI}{HTTP})/g ) {
+        print $1, $/;
+    }
+}