perl -i.bak -l -ne "print join(',',unpack('A8A10A2',$_));" filename