Here's some code that does roughly what you want:

#!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
[download]

This produces the following output:

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

When you save stuff from a spreadsheet, one of the possible output formats is a CSV, like the two lines of data shown above.