use strict; use warnings; while (my $file_content = ) { if ( $file_content =~ m/Vc3/ ) { my @numbers = $file_content =~ /\[\s*(\d+)\s*\]/g;#modified { local $,=':'; print @numbers; print $/ } } } __DATA__ Item no.0: NameDepth [2] <0> Class: [1] NetElementObjectClass Instance: (int) [2] <1> Class: [ 57 ] Vc3TtpSnkObjectClass Instance: (int) [3] Item no.1: NameDepth [2] <0> Class: [1] NetElementObjectClass Instance: (int) [2] #### 57:3 57