Help for this page

Select Code to Download


  1. or download this
    my %seen;
print join '', grep { !$seen{substr($_, 0, 1)}++ } <DATA>;