Using parentheses in replacement functions?

[Kixdemp]

Hello everyone! :D
Look:

$message =~ s\:-)\<img src="../cbsmiley/smile.png">\gi;

How do I use the parentheses without getting an error? Thanks! ;)

[Kixdemp]

I've made some progress, but look:

$message =~ s~\Q:-)\E~\Q<img src="../../cbsmiley/smile.png">\E~gi;

That will just show "\" instead of the image... How can I fix it? Thanks! ;-)

[FishMonger]

$message =~ s~:-\)~<img src="../cbsmiley/smile.png">~gi;

[Kixdemp]

It worked! THANKS! :D