#!perl

use strict;
use warnings;

{
    while ( <DATA> ) {

      chomp;
      my ( $n_string, $a_num, $b_num, $c_num ) = split(/,/);

      print "$n_string: " .
        join(', ', $a_num, $b_num, $c_num) .
        "\n";
    }
}

__DATA__
Bob Jones,23,45,67
Bill Hicks,56,43,29

##</code><code>##

Bob Jones: 23, 45, 67
Bill Hicks: 56, 43, 29