#!/usr/bin/perl -w
use strict;
use warnings;

my $feld7 = '3,';
print "ja\n" if @{[split /,/,$feld7]} > 1;
print "ja GwenDragon\n" if ($feld7 =~ tr/,//);