Select Code to Download

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

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