Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $foo = 'fUnKy';
lc_and_chop $foo;
print "$foo\n";

- lc_and_chop $foo;
+ my $bar = lc_and_chop $foo;

sub lc (\$) {
   my $ref = shift;
...
   return $val if defined wantarray;
   $$ref = $val;
}