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