#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  my $file = $ARGV[0] || "../data/100K_RAT.sp";

  open(IN,$file);

  my ($line,$tag,$value,$id,$ac,$de);

  while ($line = <IN>) {
    chomp($line);
    $tag =   substr($line,0,2);
    $value = substr($line,5);

    if ($tag eq "ID") {
      $id = $value;
    }
    if ($tag eq "AC") {
      $ac = $value;
    }
    if ($tag eq "DE") {
      $de = $value;
    }

  }

  close(IN);

  print "Identification: $id\n";
  print "Accession No. : $ac\n";
  print "Description   : $de\n";