En Tcl, voici la regsub qui fait le job (ligne en gras) :
set T { @Fthomiers @adrienbillon voilà ce que j’ai obtenu en utilisant une dent avec T inversé}
regsub -all {@\w+\s*} $T "" R
puts $R
C:\test>tclsh regsub.tcl
voilà ce que j’ai obtenu en utilisant une dent avec T inversé