sub swap_sql {
    my ($sql_fragment, $sub_hint, $sub_expr) = @_;

    $sub_hint = "^.+-- $sub_hint";

    # return data structures as is
    ref $sql_fragment and return $sql_fragment;

    $sql_fragment =~ s/$sub_hint/$sub_expr/m ;
    $sql_fragment;
}