for ($busi1, $busi2, $busi3) {
    s/-//g;
}