#!/usr/bin/perl -w 
use strict; 
my $feld7 = '3,'; 
print "ja\n" if @{[split /,/,$feld7]} > 1; 
print "ja fuer FtR, der/die das mit dem -w nicht getestet hat ;)" if  scalar($feld7 =~s/,(?=.)//g)>0;