# ...

$packet = sprintf("%-60s",$packet);
$packet =~ s/\s/\0/sg; #<-- kludgey

#...