#!/usr/bin/perl

use strict;
use warnings;

die "usage: skript b 3 19 file.log\n" if @ARGV != 4;
my ($key, $min, $max) = splice @ARGV, 0, 3;
/,$key=(\d+)/ && $1 >= $min && $1 <= $max && print while (<>);