#!/usr/bin/perl -w

use strict;
use warnings;
my ($time, $site, $logName, $fullName, $date, $gmt, $req, $file, $proto, $status, $length);
$site;
my $LOGFILE = "config.txt";
open LOGFILE,"$LOGFILE" or die "cannot open file : $!";
foreach my $line (<LOGFILE>) {
    
    ($site, $logName, $fullName, $date, $gmt,
         $req, $file, $proto, $status, $length) = split(' ',$line);
   my $a = "$site\n";
   print "--$a\n";
   my $b = "$logName\n";
   print "==$b\n";
 }
close(LOGFILE);