Select Code to Download

my $string = "alpha beta beta gamma gamma   gamma foo bar bar baz qux 
+qux qux";

...
my %h = map { $_ => 1 } split(/[\b\s]+/,$string);
print join(" ",keys %h);
print "\n";

alpha beta gamma foo bar baz qux
foo gamma baz bar beta alpha qux