while(<DATA>)
        @data = unpack("A8A10A2",$_);
        print join(",", @data), "\n";
}

__DATA__
12345678123456789012
longone evenlongerha
a       b         c