my @chars;
{
    local $/ = \32;
    open my $fh, '<', $name or die $!;
    binmode $fh;
    local $_ = <$fh>;
    @chars = unpack 'CCC', substr $_, 29, 3;
    close $fh or die $!;
}
print "@chars", $/; # quoted only to put space between values