Select Code to Download

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