$line="123 456 789";
@w=unpack('A3A3A3A3',$line);
print "@w";