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