sub hdl_start{ my ($p, $elt, %atts) = @_; return unless $elt eq 'message'; # We're only interrested in what's said $atts{'_str'} = ''; $message = \%atts; }