my $input = $ARGV[0];

my $count = -127.5;
my $value1 = $count - 2.5;
my $value2 = $count + 2.5;

open(INPUT, "$input") || die "Oops!: Can't open file: $!\n";
while (<INPUT>) {
    my $checkvalue = substr($_, 0, 6);
    print "$checkvalue $value1 $value2\n" if $checkvalue > $value1 and $checkvalue <= $value2;
}