История изменений

Исправление ~~redgremlin~~, 26.09.13 13:15 (текущая версия) :

То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.

Тогда надо как-то так:

@tags = ('20', '21', 'gewt', 'etc');
if (/^\:(.+?)\:/) { 
  $tag = $1;
  $sender .= $_ if grep { $_ eq $tag } @tags;
}

Исходная версия ~~redgremlin~~, 26.09.13 13:14:

То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.

Тогда надо как-то так:
[code=perl]
@tags = ('20', '21', 'gewt', 'etc');
if (/^\:(.+?)\:/) {
$tag = $1;
$sender .= $_ if grep { $_ eq $tag } @tags;
}
[/code=perl]