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