. ignored
> someidentifier
. ignored
ATATATATGC
. ignored
> someidentifier2
. ignored
GCGCGCGCAT

##</code><code>##

$ perl 1093455.pl
> someidentifier, 20
> someidentifier2, 80
$