How to extract a number/word after a specific character (perl, regular expressions)?

Question

Perl

Good afternoon!
At the moment, I have a script that accesses the equipment via telnet, asks for information about the piece of iron, enters it into an array, and then extracts a string from the array containing the sequence of characters "No.:"

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

Result:
Serial No.:ABCD1234EF56 Can you tell me
how to extract the characters after the ":" sign?

Answer 1

You can do without regulars:

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