$message = s/<[>]*>//g;

##</code><code>##

$message = $_ =~ s/<[>]*//g;