use strict;
use warnings;
use Data::Dumper;

my $filename = 'file.fasta';
 
open( my $MY_HANDLE, '<', $filename ) or die "Couldn't open file";

(undef, my @chars) = do{local $/="\n>"; <$MY_HANDLE>};
print Dumper(\@chars);