Select Code to Download

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

$VAR1 = [
          'NM_001198855.1 Homo sapiens cytochrome P450 family 2 subfam
+ily C memb
...
CAAGTAGCTGGTATTACAGGCACCTGCCACCGCGCCTGGCTAATTTTTTTTTTTTTTTTTTTTTGTATTT
'
        ];