$message =~ s{:\)}
             {<img src="$imagedir/smiley.gif">}g;