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

##</code><code>##

    for($i=0 $i<31;$i++)  {
      $busi[$i] =~ s/-//g;
}