Select Code to Download

$ perl -E'my $x="abc"; $x=~s/./say pos($x); pos($x)=2; say pos($x)/e;'
0
2