空のsplitで単語が一文字に分かれる。

#!/usr/bin/perl
#
#

$| = 1;

$dnafile = $ARGV[0];

open(DNAFILE, "< $dnafile") || die "Can't open $dnafile";
while(<DNAFILE>) {
chomp;
s/\s+//g;
s/[\r\n]//g;
push(@a, $_);
}
$dnaline = join("", @a);


@singledna = split('' , $dnaline);

foreach $i (@singledna) {
print "$i\n";
}

exit;


しかし、これにchr20入れたら止まった。
あたりまえかも。