#!/usr/bin/perl -CSDA 

use utf8;
use Modern::Perl;

print map { "$_\n" } sort keys %{{
        map { ($_, 1) }
        grep { $_ }
        map { /([^\/]*\.js)/ && $1 }
        `cat /var/log/apache2/access.log.1` 
}};