#!/usr/bin/env perl
use strict;
use warnings;
use List::Util 'uniq';

my $tags = '#tag1 #tag2 #tag3 #tag1';

my $uniq = join ' ', uniq split / /, $tags;

print "Orig: $tags\nUniq: $uniq\n";