#!/usr/bin/perl

$sequence=">|SP:Q62671|RATTUS NORVEGICUS|";

($marker, $code, $species) = split '\|', $sequence;
($dummy, $acc) = split ':', $code;
print "This FastA sequence comes from the species $species\n";
print "and has accession number $acc.\n";
