[ENSCORESW-1096]. Very old script, nobody seems to be needing it anymore.

misc-scripts/utilities/split_fasta.pl

-#!/usr/bin/env perl
-# Copyright [1999-2015] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute
-# Copyright [2016-2018] EMBL-European Bioinformatics Institute
-# 
-# Licensed under the Apache License, Version 2.0 (the "License");
-# you may not use this file except in compliance with the License.
-# You may obtain a copy of the License at
-# 
-#      http://www.apache.org/licenses/LICENSE-2.0
-# 
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-use strict;
-use warnings;
-
-use Bio::SeqIO;
-my $ntfile = shift(@ARGV);
-my $seqin  = Bio::SeqIO->new(-file => "$ntfile" , '-format' => 'Fasta');
-while ( my $seq = $seqin->next_seq() ) {
-    $seq->id =~ /ref\|(\S+)\|(\S+)/;
-    my $id=$1;
-    my $name = "$id.fa";
-    my $seqout = Bio::SeqIO->new(-file => ">$name" , '-format' => 'Fasta');
-    $seqout->write_seq($seq);
-}