sub subst {
    my ($twig, $value) = @_;

    $value->subs_text ('^s$', 'x');
    $value->print ();
}