$string =~ s/!([\w\s]+)//; ##add other allowed chars as needed

##</code><code>##

$string =~ s/!([\w\s\!\@\#\$\%\^\&\*\(\)\\\`\~\-\+\=\,\.]+)//;