Yaroslav
Я не проверил код, только рег, а ты даже и не пытался разобраться...
Копипаст - рулит...
foreach my $text (@text) {
my ($pod, $kol) = $text =~m /^(?:\\D+\\[(\\d*)\\]\\D+|[^\\[\\]]+?)(\\d+)\\D+$/;
print $pod, $kol;
}
Можешь смело копировать и вставлять в свой код...
Пояснять не буду, раз тебе не нужно...
А вот использовать кириллицу в регулярных выражениях - рискованное занятие...