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