s<\@(.*?)\@>{ length $1 ? subst($1) : '@' }ge;