Forum Programmation.perl Regexp qui me stresse

Bonjour,

ça fait plusieurs heures que je cherche l'expression régulière qui va bien du cas suivant;

a#TOTO=ok
b#JOJO
c#TITI=machin
...


et qui doit donner en résultat:


a=ok
b
c=machin
...


dans le texte: virer la partie #LENOM mais pas ce qu'il y a après le '=' s'il existe...
j'y arrive, mais en deux expressions - j'aimerais le faire en une seule - et qui sont:

s/#.*=/=/;
s/#.*//;


bref, si quelqu'un a une idée... Merci à tous.