$s = 'the quick brown fox';;
$r = \substr $s, 10, 5;;
$$r = 'green';;

print $s;;
the quick green fox