#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;

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

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