$new_type = "BookInstructional MaterialTeaching Guide";
$new_type =~ s/([a-z])([A-Z])/$1\:\:$2/g;
# $1\:\:$2/g;  ##\\\\\\
print "$new_type\n";


##</code><code>##

$new_type =~ s/([a-z])([A-Z])/"$1::$2"/g;
#"$1::$2" - strings are a monks best friend