Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl

...
    my($p,$str) = @_;
    print "Default found: $str\n";
}

Select or download this

<?xml version="1.0" encoding="UTF-8"?>
<root>
  <test1></test1>
  <test2>&#151;</test2>
</root>