$line="123456789";
@w=unpack('Z3Z3Z3',$line);
print "@w";