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