En utilisant l'expression régulière pour remplacer la ponctuation répétitive?

Question

Voici une phrase comme ceci:

Happy birthday!! I have a good day. :)

Je veux savoir comment traiter ces phrase en utilisant l'expression régulière au formate suivant:

Happy birthday! I have a good day.

Answer 1

Voici comment faire en PERL (puisque vous ne spécifiez pas un langage de programmation.

my $str = "Happy birthday!! I have a good day. :)";
$str =~ s/([.!?]){2,}/$1/g;    #remove multiple punctuation
$str =~ s/[:;()]+//g;          #remove emoticon
print $str;