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