Perl, как выделить из строки то что в квадратных скобках []?

Question

[Valentin Barbolin]

День добрый.
Бьюсь над регуляркой уже второй день, есть обходные варианты решения вопроса, но хочется сделать красиво.

Есть строка:
vs-mm-net-ht01[3]: ESTABLISHED 32 minutes ago, 77.164.204.11[vs-mm-vps-ht01]...221.163.147.23[vs-mn-net-kt01]

Необходимо одной строкой определить 3 переменных
Типа так, но не работает: ($num, $tunnel_from, $tunnel_to) = split(/\[(.*?)\]/, $_);

то есть, чтобы переменные получили следующие значения:
num=3
tunnel_from = vs-mm-vps-ht01
tunnel_to = vs-mn-net-kt01

Answer 1

[vaut]

в лоб

# Если в строке бывает ровно три квадратных скобки
/\[(.*)\].*\[(.*)\].*\[(.*)\]/; 
($num, $tunnel_from, $tunnel_to)=($1,$2,$3)

не подходит?
Изящнее:
($num, $tunnel_from, $tunnel_to) = /\[(.+?)\]/g

Comments

[Valentin Barbolin]

Огонь!

[Telecom1]

Спасибо vaut за такое изящество.
Для тех, кто только изучает PERL (таких как я):
обратите внимание, что, приведённое выше, регулярное выражение /\[(.+?)\]/g
"разбивает на части" строку, значение которой находится в переменной $_ (это "стандартная переменная" языка perl)

[vaut]

Telecom1, будет точнее в данном случае говорить не "разбивает на части" а "захватывает круглыми скобками".