if ( $channels =~ /(\d,)(\d,)(\d,)(\d)/ ) {
    $channels = "0${1}0${2}0${3}0$4";
}