$phrase =~ s/[^\s*\w*]//g;
##</code><code>##

$phrase =~ s/[\S]|[\W]|[^*]//g;