# initialize @row
my @row;
# for each table row, apply all the regex patterns in order to the tval_test column
	open(FILE, "< $file") || die "Can't open regex.txt: $!\n";
		while(my $regex=<FILE>){
			# get all tval_test columns
			my $sql_q = "select tval_test from cas_testbed.rtemp";
			my $sthr = $dbh->prepare($sql_q);
			$sthr->execute;			
			my @rex = split(/\s/,$regex);  
			# work on each tval_test row
			while (@row = $sthr->fetchrow_array){
				# search for $rex[0] and replace with $rex[1]
				s/$rex[0]/$rex[1]/ig;
			} # END while (@row = $sth->fetchrow_array)
			$sthr->finish;
		} # END while(my $regex=<FILE>)
	close FILE;