$obj->changeName($topNodeOfXmlTree, 'WrongNode', 'RightNode');

sub changeNodeNames {
  my ($self,$node,$from,$to) = @_;

  my $nodeName = $node->nodeName;
  $nodeName =~ s/$from/$to/;
  ...
}