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

##</code><code>##

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