#!/usr/bin/perl -w

use strict;

die "$0: VALUE MIN MAX\n"  if @ARGV != 3;
my ($key, $min, $max) = @ARGV;


open LISTE, "<", "liste.txt"  or  die $!;
while ( <LISTE> )
{
    if ( m/$key=(\d+)/o )
    {
        print if $1 >= $min  && $1 <= $max;
    }
}
close LISTE;