Select Code to Download

line 1485
-- if ($rule =~ s/\s*\bonly\(([^\)]+)\)//) {
...
++         delete $data->{$_} unless exists $only{$_};
++     }
++ } elsif ($rule =~ s/\s*\bonly\(([^\)]+)\)//) {

Windows Registry Editor Version 5.00

...

[HKEY_CLASSES_ROOT\Folder\shell\CmdHere\Command]
@="C:\\WINNT\\system32\\cmd.exe /k cd \"%1\""

use strict;
use XML::Rules;
...
    </Author>
  </AuthorList>
</PubmedArticle>

$string = "xxabgi";
$_ = "abcghis";
...
$string =~ (1 ? y/a-c/d-f/ : y/g-i/j-l/);

print "Changed: \$string='$string'\t\$_='$_'\n";

my $xml = <<'*END*';
<doc>
...
);

$parser->parsestring($xml);

my $xml = <<'*END*';
<doc>
...
);

$parser->parsestring($xml);