Thanks, it works. Here's my more elaborated version:

$tags=~s/(#\S{2,}\b)(.*\s?)(\1)(\s?.*)/$3$2$4/g;