Select Code to Download

sub trim {
   $_ = $_[0];  # Assigns to $_, but $_ is aliased to " abc ".
...
# }

print trim($_) for " abc ", " def ", " ghi "

sub f {
   my $pos = tell(DATA);
...
a
b
c