while ( my $token = $stream->get_token ) {
	if(
		(
			$token->is_comment
			and $token->as_is eq '<!-- InstanceBeginEditable name="article" -->'
		) .. (
			$token->is_comment
			and $token->as_is eq '<!-- InstanceEnd -->'
		)
	) {
		print $token->as_is if $token->is_text;
	}
}