$ perl -e's//foobar/;my $foo=substr($_,2,2,"rt");print $foo,$/'
ob
$ perl -e's//foobar/;my $foo=substr($_,2,2)="rt"; print $foo,$/'
rt
$