#!/usr/bin/perl -w

use strict;
my $logfile = "/.../access_log";

open(LOG, $logfile) || die "Could not read $logfile\n";
while (<LOG>)
{
     next unless (/\Q$ARGV[0]\E/);
     print;
}
close(LOG);