sub change_node_names { 
  my ($self, $node, $code) = @_;
  $nodeName = $code->( $nodeName )
}

$foo->change_node_names( $node, sub { 
  my $name = shift; 
  $name =~ s/wrongnode/rightnode/;
  return $name
} );