$busi1 =~ s/-//g; $busi2 =~ s/-//g; $busi3 =~ s/-//g;