Select Code to Download

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

use CGI qw(img);
my $imagedir = '/path/to/images';
...
stuff *sleep* :) stuff *hug* :( stuff :P
:p stuff *wink* :o stuff :O stuff *flower*
*devil* stuff stuff *love* *conf* stuff