$somecontent
1somecontent
somecontent
$
0
1
1
1
0
00
somecontent
somecontent
x2 = 3.6235
z2 = 0.1036
F_eroie = 0.6156
someothervali = 0.9976
somecontent
Some_t2 = 0.8456
se_x2 = -0.6545
x2_se = 0.9647
z2_se = 0.6954
---------------------------------
somecontent
somecontent
$

$

$somecontent

##</code><code>##

#usr/bin/perl
use strict;
use warnings;
for my $i= 6000000
{
open (FH, "try_$i.txt") or die"Can't Open file";
my @readline=<FH>;
my $filename = <FH>;
close(FH);

my $pat='/^x2=\s';

my $pat1='/^z2=\s';

my $pat2='/^some_t2=\s';

foreach my $line (@readline)
{
$pat=~'/^x2=\s'; 
my $x2=$line;
$pat1=~'/^z2=\s';
my $z2=$line;
$pat2=~'/^some_t2=\s';
my $some_t2=$line;
$x2 >= 0.6 and $z2 >= 0.5 and $some_t2 >= 0.4;
}
print $filename;

close(FH);
}