#usr/bin/perl
use strict;
use warnings;
$|++; #flush output to stdout as soon as possible
my @files = glob '*.txt';
my $pat='/^x2=0.[6-9][0-9][0-9][0-9][0-9]\n';
my $pat1='/^z2=0.[6-9][0-9][0-9][0-9][0-9]\n';
my $pat3='/^some_t2=0.[6-9][0-9][0-9][0-9][0-9]\n';

foreach my $file (@files)
{
foreach my $file1(@files)
{
foreach my $files2(@files)
{
  if (($file=~/^$pat/) && ($file1=~/^$pat1/) && ($$file2=~/^$pat3/))
	{  print  "$file IS VALID\n"; 
	system 'mv $file  E:\test\some'  
	}
  }
  else 
	print "not relevant\n"
  }