use warnings;
open FILE, "Testus.txt" or die "Couldn't open file.";
while (<FILE>) { print "$_ \n" if(/^(\d+\.\d+\t(\d+)\.\d+)/ and grep {$2} (41 .. 249)};