Select Code to Download

my $graffito = 'Richard was here.';
substr($graffito, 8, 3) = 'is'; # now, it's "Richard is here."

rdice@tanru:~$ cat lvalue2.pl && ./lvalue2.pl
#!/usr/bin/perl -w
...
is
Richard  here
rdice@tanru:~$