Select Code to Download

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

qw(one two three four five six seven)

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

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