my $testdata = join '', map chr, 0..255;
( my $old = $testdata ) =~ s/(.)/ sprintf '%3d', ord $1 /seg;

$old =~ s/ +$//;
print "$old\n";