I commented on a similiar problem here and here. If the module discussed, Bio::SeqIO, doesn't solve your problem, maybe this one would, Bio::Seq.