#!/usr/bin/perl 
use strict;
use warnings;


open my $fh, '<',"human_hg19_circRNAs_putative_spliced_sequence.fa",or die $!;

my %id2seq;

    while(<$fh>){
    	my $id = '';
        chomp;
        if($_ =~ /^>(.+)/){
            $id = $1;
        }else{
            $id2seq{$id} .= $_;
        }
    }

 

    foreach my $id (keys %id2seq){
        my $filename = (split /\|/, $id)[0];
        open  my $out_fh, '>>', "$filename" or die $!; 
        print $out_fh ">".$id."\n",$id2seq{$id}, "\n";
        close $out_fh;
    }


close $fh;

##</code><code>##

  my $filename = (split /\|/, $id)[0];
        open  my $out_fh, '>>', "$filename" or die $!;