Re: Getting the last line

[ramprasad27]

try this

                  my $sequence_to_parse =">test\nATG\nGGG";

while ($sequence_to_parse=~/^>.*\n(^(?!>).*\n.*$)+/gm) {print "$&\n";}