PERL добавить символ к каждому элементу

Получаю из формы данные, выбираю те, которые начинаются с f

foreach my $key (param()) {          
    if ($key =~ /^f(\d+)$/) {                        
        push(@pos, $key);
    }
}   

После чего я вношу полученный @pos в БД и получаю "f9 f15 f25 f30".

Мне же нужно, чтобы в БД попадало "#f9, #f15, #f25, #f30". То есть каждому «слову» добавить в начале # и в конце запятую (кроме последнего слова в строке — там запятая не нужна).

Это как-то регексапи делается или как?


Ответы (0 шт):