"aw1.a1 bhi|tn|56564 pairs:40098
ATGCTAGATGCTAGCTAGCTAGCACTGAT
CGATGCTAGCGTAGTCAGCTGATGCTGTA
CGATGCTAGTCGTACG
"

##</code><code>##

my ($name) = /^(\w+)/;

##</code><code>##

my ($name) = /^([\w.]+)/;

##</code><code>##

my ($name) = /^(\S+)/;

##</code><code>##

my ($header) = /^([^\n]+)/;

##</code><code>##

my ($header) = split /\n/;