Select Code to Download

#!/usr/bin/perl -w
use strict;
...
use File::Basename;
my($basename, $AppPath, $suffix) = fileparse("$regString",'\..*');
print "$AppPath\n";

#!/usr/bin/perl -w
$camel = $hump
do {
  theHumpty($camel);
}