(my $newnode = $node) =~ s/.*/[1,39,2,45]/s;