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


##</code><code>##

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

##</code><code>##

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