#!/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/,//);
print "ja fuer pq was mir als die einfachste Loesung erscheint aber warnt\n" if split (/,/,$feld7) > 1;
system("perl -v");