#!/usr/bin/perl -w
use strict;
for (<DATA>) {
  my @line = split(/,/, $_);
  print "$line[0]\n";
}

__DATA__
test,blubbb,test123
hier,ein,satz
und,noch,einer