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;