Select Code to Download

$self->content(sub{s/foo/bar/g});

sub content {
    my $self = shift;
...
    }
    $self->{'content'};
}

$self->content =~ s/foo/bar/g;
# instead of
# $self->content(map { s/foo/bar/g } map $_, $self->content);