Select Code to Download

  my @list       = map { chomp($_); $_ } <$fh>;
  my @uc_list    = map { chomp $_; [uc $_] } <$lc_fh>; # used only onc
+e
  my @split_list = map { chomp $_; [ split(/\|/, $_) ] } <$piped_fh>; 
+# used only once

  my @list       = map { chomp; $_ } <$fh>;
  my @uc_list    = map { chomp; [uc $_] } <$lc_fh>; # used only once
  my @split_list = map { chomp; [ split(/\|/, $_) ] } <$piped_fh>; # u
+sed only once

  my @array = map {
    $_ =~ s/^[\*\+-] (.+)/$1/;
    some_sub($_, $opt);
  } @another_array;

<code>
  my @array = map {
    some_sub($_, $opt);
  } @another_array;

  my @ids = map {
    $_ =~ s/<.+?>//g;
...
    $_ =~ s/[^\w:.\-]//g;
    $_;
  } grep {defined($_)} @base;

  my @ids = map {
       s/<.+?>//gr
...
    =~ s/ /_/gr
    =~ s/[^\w:.\-]//gr
  } grep { defined } @base;

sub fancy_map {
  my ($opt, $list) = @_;
...
    }
  } @{$list};
}

sub fancy_map {
  my ($opt, $list) = @_;
...
      }
  } @{$list};
}