#!/usr/bin/perl -w
# 2005/05/10 - I. Dutour

#
# lecture d'un fichier GenBank
#

$annotations = "";
$sequence = "";

while ($lecture = <>) {
    last
	if ($lecture =~ /^ORIGIN/);
    $annotations .= $lecture;
}

while ($lecture = <>) {
    last
	if ($lecture =~ /^\/\//);
    $sequence .= $lecture;
}
$sequence =~ s/[^agtc]//gi;

print "$sequence\n";
