$s=SOAP::Lite
  ->service('http://preview.etracker.de:8008/wsAPI?wsdl')
  ->on_fault(sub {
               my($soap, $res) = @_;
               ...
	     });

eval {
  ...
  $s->setFilter($ticket,
		$stat_id,
		'^-[^,]+,4853,',
		FILTER_TYPE_REGEXP);
  ...
};