#!/usr/bin/perl

use strict;

use warnings;
##</code><code>##

my $input = $ARGV[0];

open(INPUT, "$input") || die "Oops!: Can't open file: $!\n";

my @inputfile = <INPUT>;

for(my $j = 0; $j < @inputfile; $j++)
##</code><code>##

while (<>) {
# ...    
}

##</code><code>##

#!/usr/bin/perl -ln

use strict;
use warnings;

print if -130 < $_ and $_ < -125;

__END__