my $code = q{
  $x/html/head/title[0] = "Page Title";
  $x/html/body/h1[0] = "Some text here";
};
$code =~ s|/(\w+)|->{$1}|g;
eval $code; die $@ if $@;

##</code><code>##

------------
:Wq
Not an editor command: Wq