my $foo = "Hello, World!";
substr($foo,7,5) = "PerlMonks";
print "$foo\n"; 
__END__
Hello, PerlMonks!

##</code><code>##

my $value;
sub foo : lvalue {
    $value 
}
foo() = "Bar";  
print "$value\n";
__END__
Bar