$style =~ /\.([^:]*)/ ;

##</code><code>##

$style =~ /\.((?:[^:]|[-\w])+)/;