Help for this page

Select Code to Download


  1. or download this
    my $foo = "Hello, World!";
substr($foo,7,5) = "PerlMonks";
print "$foo\n"; 
__END__
Hello, PerlMonks!
  2. or download this
    my $value;
sub foo : lvalue {
...
print "$value\n";
__END__
Bar