my $replacement = sub {
    return unpack("a1", shift);
};