#!/usr/bin/perl
use strict;
use warnings;
my @finalArray = ();
while(<DATA>){
if ($_=~/^sample_char/){
my @line = split(/\=/,$_);
#push (@finalArray, $line[1]);
push @finalArray, $line[1];
}
}
print "Final data :: @finalArray";
__DATA__
sample = 123
sample_sub = info
sample_char = abc
sample_char = abc1
sample_char = abc2
sample_end
sample = 124
sample_sub = info
sample_char = bbc
sample_char = bbc1
sample_char = bbc2
sample_end
sample = 125
sample_sub = info
sample_char = cbc
sample_char = cbc1
sample_char = cbc2
sample_end
OUTPUT
Final data :: abc
abc1
abc2
bbc
bbc1
bbc2
cbc
cbc1
cbc2