sub rev_scalar {
    local $_ = shift;
    return if not defined;

    my $res = '';
    $res .= chop while length;
    return $res;
}