Change Perl share() func to canonical heading style