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

  my $nodeName = $node->nodeName;
  $nodeName =~ $regEx;
  ...