Help for this page

Select Code to Download


  1. or download this
    $surname =~ s/^((?:Mc|Mac|De|Da|Du)?)(.*)$/\u\1\u\2/i;