9/reformat_giline.pl


#!/usr/bin/perl -w
use strict;

open(IN, 'rt.fa') or die "Could not open file\n";

while (<IN>) {
    if (/>.*clone (\S+) /) {
        print ">$1\n";
    }
    else { print; }
}
close IN;