my @words = ('one-', 't-wo', 'three- fo-ur', 'five six se-ven');

##</code><code>##

qw(one two three four five six seven)

##</code><code>##

print join("\n", map { $_ =~ s/-//g; split; } @words);

##</code><code>##

print join("\n", map { $_ =~ s/-//g } map { split } @words);