Select Code to Download

sub distance {
    ...
...
    until ...
    ...
}

sub butter {
    my $_ = shift;
    return $1 + butter($_) if s/(\d+)//;
...
}

print butter 'effect / 7ACV06';