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