#opening log file open (LOGG, '<', 'IN-access.log'); #reading log file and assigning values while ($lines = ){ ($remoteIP,$rfc,$userID,$dateTime,$requestType,$statusCode,$sizeOfFile) = split ' ', $lines; print "$statusCode $sizeOfFile\n"; }