$text =~ s/@(\w+)/<TT>$1<\/TT>/g;