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