Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
use strict;
...
=OUTPUT
Before: BookInstructional MaterialTeaching Guide
After:  Book::Instructional Material::Teaching Guide
  2. or download this
    $new_type =~ s/([a-z])([A-Z])/${1}::${2}/g;