{
    my $foo = 'boo' . $/;
    sub foo () : lvalue { $foo }
}
chomp foo;
foo =~ s/o/r/;
print foo;