Select Code to Download

foreach $sic (keys %hash){
  next if !$hash{$sic}{BUS};
...
          $str[39] ."\n\n\n";
  }
}

str1 = 'Domino''s Pizza' sic= 5812, cat= Pizza restaurants bus= Pizza
Found one.  Bus name is 'Domino''s Pizza' and cat is Pizza restaurants
+ and sic is 5812