#!/usr/bin/perl

use strict;
use warnings;

sub main
{
    my @js = ();
    my @ujs =();
    my $file = 'access_log.txt';
    open(FH, $file) or die("File $file not found");

    while(my $String = <FH>)
    {
        if($String =~ '[^/]*\.js')
        {
            push(@js,($String));
            #print "$String \n"; 
            @ujs = grep {/[^/]*\.js/}, @js;
           # print @ujs;
        }
    }
    close(FH);
foreach (@ujs)
{
  print "$_\n";
}


}
main();