my $csv = Text::CSV->new({sep_char => "$s_delimiter"});
$csv->parse($s_data);
my $tmp_rc = $csv->parse($s_data);
die "A Error occured while parsing input file: $tmp_rc !\n" if(! $tmp_rc);

@a_data = $csv->fields();
print "Input: > $s_data <\n";
print "Trenner: > $s_delimiter <\n";
print Dumper @a_data;