sub hdl_start{
      my ($p, $elt, %atts) = @_;
      
      return if $elt =~ /^(?:foo|bar|baz)$/;
	  
 
	  if ($elt eq 'Tag1')
	  {
	  	$firstAtt = $atts{'erstesAttribut'} );
	  }
#.. etc
}