Select Code to Download

sub capitalize_next {
    my ($thing) = @_;
    uc inline increase($thing);
...
    my ($foo) = @_;
    ++$foo;
}

sub capitalize_next {
    my ($thing) = @_;
    uc do { local @_ = ($thing);
...
    my ($foo) = @_;
    ++$foo;
}

sub capitalize_next {
    my ($thing) = @_;
    # uc inline increase($thing);
}