my $rcal= fhem("get Abfall text all 4");
print "\$rcal: $rcal\n";

my @events = split ("\n", $rcal);;
print "\@events:\n", join "\n", @events;