if (length($workline) > 1 ){
        chomp $workline;
        @elemente = split(/#/,$workline);
        $elemente[0]=~ s/^ *(.*) *$/$1/g;