my( $l1, $l2 ) = length( $text );
$l1 = $l2 
    while ( $l2 = length( $text = HTML::Entities::decode( $text ) ) ) < $l1;