You need to read up more on
pack and
unpack because "A14" implies
a 14 character Ascii field so that will basically just dump
the data back out. try:
$seqout = unpack("H7", $seq); and see what
that gets you.
--
$you = new YOU;
honk() if $you->love(perl)