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

##</code><code>##

my $newnode = '[1,39,2,45]';