($name, $p) = extract_name($response, $p) ;
  ....
  sub extract_name {
    my ($response, $p) = @_ ;
    my $extracted ...
    ....
    return ($extracted, $p) ;
  } ;