my $v = "test";
$v.=subst(/(\w)/, -> $/ { say $0; 'X' });
say $v
# output:
t
Xest