#!/usr/bin/perl

use strict;
use warnings;

$|++; #flush output to stdout as soon as possible
my @files = glob '*.txt';

my $pat = qr/^x2=(0.[6-9])$/;
my $pat1= qr/^z2=(0.[6-9])$/;
my $pat3= qr/^some_t2=(0.[6-9])$/;



foreach my $file (@files){
  my ($var_one, $var_two, $var_three); #your var names to be checked
  print "checking '$file'\n";
  open my $fh, '<', $file or die "...";
  while (<$fh>) {
     #use regex to put something inside  $var_one, $var_two..
     chomp $_;
     if ($_ =~ $pat)  {$var_one = $1; print "\tfound:'$_'\n"}
     if ($_ =~ $pat1) {$var_two = $1; print "\tfound:'$_'\n"}
     if ($_ =~ $pat3) {$var_three = $1; print "\tfound:'$_'\n"}
  }
  #
  #if (all vars needed are defined and pass your check){  print  "$file IS VALID\n"; system 'mv $file  /new/path'  }
  
  if (defined $var_one && defined $var_two && defined $var_three ) {

      print "FILE $file has a valid content ( x2=$var_one, z2=$var_two, some_t2=$var_three)\n";
      # system "mv $file x:/valid_files"
  
  }

}