#!/usr/bin/perl

use strict;
use warnings;

my ($key, $min, $max) = @ARGV;

open LISTE, "list.txt";
my @liste=<LISTE>;

while(@liste){
        $_=shift(@liste);
        if (m/$key=(\d+)/ && $1 >= $min && $1 <= $max){
                print;
        }
}

close(LISTE);