$excel_br="<br>";

$line ="Some Text <br>      ABCD</br> Some Thing Else"
$line =~ s/$excel_br /$excel_br&nbsp;/g ;

1 while ($line =~ s/($excel_br(&nbsp;)+)/$1&nbsp;/g ) ;