First draft of a tool to extract URLs from a text file

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, $/;
+    }
+}