Assuming the first column of data is never quoted, and there are always exactly two columns, split will work just fine. Otherwise, check out one of the CSV modules on CPAN.

Here is a solution using split:

for (@LISTING) {
  ($one,$two)=split /,/,$_,2;
  print "$two\n";
  print "$one some info\n";
}
[download]