#!/usr/bin/perl

# www.pi.dk 107.150.59.98 - - [29/Nov/2016:11:29:01 +0100] "GET /test/?16EE2%20%20%E5%AF%8C%E5%B1%B1%E3%83%8B%E3%83%A5%3%83%BC%E3%83%90%E3%83%A9%E3%83%B3%E3%82%B9996%E8%B2%A9%E5%A3%B2%E5%BA%97%20%20%E3%83%8B%E3%83%A5%E3%83%BC%E3%83%90%E3%83%A9%E3%83%B3%E3%82%B9576%E6%BF%80%E5%AE%89 

my $antalpcttegn = shift;

while(<>) {
    my @ip = split / /,$_;
    my @v = split /"/,$_;
    my $c = $v[1]=~y/%/%/;
    $c > $antalpcttegn and print $ip[1],"\n";
}