Select Code to Download

sub foo {
   my ($s) = @_;   # String copied here before 5.20
...
}

foo($str);         # No copying here.