#!/usr/bin/perl -w

use strict;

my $test = "alpha beta  beta gamma gamma gamma delta";

my %seen;
my @out;
for ( split( " ", $test ) ) {
        push( @out, $_ ) unless $seen{$_}++;
}

print join( " ", @out ), "\n";