#!/usr/local/bin/perl

## Enter a short description of the script

use strict;
use warnings;

my $fileName = shift;
my $upper = shift;
my $lower = shift;

open(IFILE, $fileName) or die("Couldn't open the file $fileName\n");

while(<IFILE>){
	chomp;
	(my $eng, my $urd, my $prob) = split /\s+/,$_;
	print "$eng $urd $prob\n" if($prob > $lower and $prob < $upper);
}
close IFILE;