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

 machma ("3,,,,");
 machma (",3,,,");
 machma (",,,,3");

sub machma{
    my $wert = shift;
    my $buff = $wert;
    print "\n\"$wert\"\n";
    print "Array Stunt\n";
    print scalar(@{[split /,/,$wert]});
    print "\nAnzahl der Felder\n";
    print scalar($wert=~s/,(?=.)//g)+1;
    $wert=$buff;
    print "\nAnzahl der Felder mit Wert\n";
    print scalar($wert=~s/,(?!\,)(?=.)//g)+1;
    print "\n";
}