$str =~ /:([\w]+):/;

##</code><code>##

$str =~ /:(\w+):/;