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 reply to Re^2: Push the each group item into array
by senthil_v
in thread Push the each group item into array
by senthil_v
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |