in reply to Re: Push the each group item into array
in thread Push the each group item into array

Thanks for code.

it really works here. i got output here. but i need made some modification before put pattern as ur pattern /^>+/. because i need to read the first and last line of text file. because i add manually added '>' symbol in first and last line. In ur code i could not able put pattern

$line =~ s{^(RTRV)}{\>$1}gsi;

$line =~ s{(\"\s+)(;)}{$1\>$2}gsi;

In Section Seekers of Perl Wisdom