my $sequence_to_parse =">test\nATG\nGGG";
print $sequence_to_parse  =~ /([^\r\n]+)$/s;
__END__
GGG