Utilisation de l'expression régulière pour remplacer la ponctuation répétitive?

Question

Voici une phrase comme celle-ci:

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 précise 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;