Как извлечь число/слово после определенного символа (perl, регулярные выражения)?

Question

[Андрей Бондарчук]

Добрый день!
На данный момент у меня есть скрипт, который заходит на оборудование через telnet, спрашивает информацию о железке, заносит ее в массив, а потом извлекает из массива строку содержащую последовательность символов "No.:"

@line = $t->cmd(Timeout => 120, String =>'show version'); 
@result = grep/\s(No.:)/, @line; 
print @result;

Результат:
Serial No.:ABCD1234EF56

Подскажите, как извлечь символы за знаком ":"?

Answer 1

[pcdesign]

Можно и без регулярок обойтись:

my $a =  join(",", @result);
my @res = split(":", $a); 
print $res[1]