The return value of the s/// operator is the number of substitutions.

Use the following instead:

$variable =~ s/foo/bar/;
say $variable;
[download]