My suggestion (untested!!)

#!/usr/bin/perl

use strict;
use warnings;
my $input = $ARGV[0];
open(INPUT, "<$input") || die "Oops!: Can't open file: $!\n";
while (<INPUT>) {
  chomp
    if (($_>-130)&&($_<=-125)){
      print "$_ -130 -125\n";
    }
}
close (INPUT);
[download]

Success, F.