Help for this page

Select Code to Download


  1. or download this
    my $x = join'', map {substr $_, 0, 1} @p;