Select Code to Download

sub f { $_[0] =~ s/a/b/g }
my $text = 'foo bar'
f $text

sub f { 
   my $ref = shift;
...
}
my $text = 'foo bar'
f \$text