You hit the nail on the head.

class InDeclareString is dirty {
    use overload '""' => 'to_string';
    has val => (is => 'rw');
    method to_string { sprintf "(%s)", $self->val }
};
[download]

works perfectly.

Many thanks