my $itemSet = bless{ item => {} };

sub desc{
    my $self = shift;
    my $descr = shift;
    $descr =~ s{\n}{<br>}g if $descr !~ m{WYSIWYG}i;
    $self->{item}{description} = $descr;
}

$itemSet->desc("hier die Beschreibung mit einem WySi reingefummelt..\nneue Zeile");