Help for this page

Select Code to Download


  1. or download this
    print join "\n", map { tr/-//d; $_ }  map { split/\s+/ } @words;
  2. or download this
    print join "\n", map { tr/-//d; split/\s+/; $_ } @words ;