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

##</code><code>##

my @w = split /\s/, $line;