for (@array) {
  if (/([A-Z\n]+)$/) {
    my $sequence = $1;
    $sequence =~ s/\n//g;
    print $sequence, "\n"; # or whatever you want to do with it;
  }
}
[download]