$domain = unpack ("A4", $temp1[40]);
   ...
   if (($domain eq "BBA") && ...