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