#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;
use Path::Tiny;

my %h =
        map { ($_, 1) }
        grep { $_ }
        map { /([^\/]*\.js)/ && $1 }
        path('/var/log/apache2/access.log.1')->lines_utf8();

print map { "$_\n" } sort keys %h;