print join "\n", map { tr/-//d; $_ }  map { split/\s+/ } @words;