#!/usr/bin/env perl 
use strict;
use warnings;

my %ujs;
my $file = 'access_log.txt';
open my $FH, '<', $file or die "File $file not opened: $!";

while (my $String = <$FH>)
{
    next unless $String =~ /([^\/]*\.js)/;
    $ujs{$1} = 1;
}

close $FH;
print "$_\n" for sort keys %ujs;