Help for this page
sub distance { ... ... until ... ... }
sub butter { my $_ = shift; return $1 + butter($_) if s/(\d+)//; ... } print butter 'effect / 7ACV06';