XXXXXXXXXX 		YYYYYYYY
TIFF     1..203
	     /def="Z/AA:XGproxy1"
         /pattern="gdgdfn6N6"                   
TIFF     trans(256..298)
	     /def="Z/AA:ZYprompt5"
         /pattern="HbgREV5ehe757gAH"
TIFF     trans(303..323)
         /pattern="hfftvt&&jdgY=)"                  
XXXXXXXX			YYYYYYYY

##</code><code>##

foreach $row (@file){ 
	if ($row =~ /TIFF\s+([0-9.]+)/g){
	@columns = split(/\s+../, $row); 
	$difference = scalar(@columns[2]) - scalar(@columns[1]);
print ("$difference\n");
	}
}

##</code><code>##

open (FILE1, 'file1.txt');
open (FILE2, 'file2.txt');
	$content =~ /pattern="([A-Z\s]+)/g;
$query = $1;
$query =~ s/\s+//g;
print("$query\n”);