sub changeNodeNames {
    my ($self,$node,$regEx,$subst) = @_;
    my $nodeName = $node->nodeName;
    $nodeName =~ s/$regEx/$subst/;
    # . . .
}
$foo->changeNodeNames($anode, qr/foo/, 'bar');