如何在Perl中合并两个FASTA文件(一个带换行符的文件)？

#!/usr/bin/perl

use strict;
use warnings;

my $file1 = "file1.fasta";
my $file2 = "file2.fasta";

open(my $fh1, "<", $file1) or die "Can't open $file1: $!";
open(my $fh2, "<", $file2) or die "Can't open $file2: $!";

my $fasta1 = do { local $/; <$fh1> };
my $fasta2 = do { local $/; <$fh2> };

close($fh1);
close($fh2);

my @sequences1 = split(/>/, $fasta1);
my @sequences2 = split(/>/, $fasta2);

foreach my $seq (@sequences1) {
    if ($seq =~ />/) {
        print ">$seq";
    } else {
        print "$seq\n";
    }
}

foreach my $seq (@sequences2) {
    if ($seq =~ />/) {
        print ">$seq";
    } else {
        print "$seq\n";
    }
}