Malgré 2005-11-10 10:18:13 (GMT+1) essaie ça
#! /usr/bin/perl

use warnings;

while (<>)
{
s/( # 1ere capture en $1
\w+\@art # coucou@art
\[ # a partir de [
( # 2eme capture en $2
[^\]]+
)
\]
)
/+$2+ $1/xg; #si je trouve @art[contenu] dans ma ligne.je traite le contenu
print;
}