Help for this page

Select Code to Download


  1. or download this
    my @list= qw(first_string second_string);
    @list = map(s/_string$//,@list);
    print @list;
    
  2. or download this
    my @list= qw(first_string second_string);
    @list = map((s/_string$// and $_), @list);
    print @list;