Select Code to Download

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

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