use Pod::Simple::XMLOutStream;
print "# Pod::Simple version $Pod::Simple::VERSION\n";
my $x = 'Pod::Simple::XMLOutStream';
use Pod::Simple::XMLOutStream;
print "# Pod::Simple version $Pod::Simple::VERSION\n";
my $x = 'Pod::Simple::XMLOutStream';
- "=pod\n\nI like S<bric-a-brac a gogo>.\n"),
-'<Document><Para>I like bric-a-brac a gogo.</Para></Document>'
-);
-skip( $unless_ascii,
+ "=pod\n\nI like S<bric-a-brac a gogo>.\n"),
+ '<Document><Para>I like bric-a-brac a gogo.</Para></Document>'
+ );
+ is(
- qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L content-implicit="yes" raw="/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">"bric-a-brac a gogo"</L>.</Para></Document>'
-);
-skip( $unless_ascii,
+ qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
+ '<Document><Para>I like <L content-implicit="yes" raw="/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">"bric-a-brac a gogo"</L>.</Para></Document>'
+ );
+ is(
- qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L raw="Stuff like that|/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">Stuff like that</L>.</Para></Document>'
-);
-skip( $unless_ascii,
+ qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
+ '<Document><Para>I like <L raw="Stuff like that|/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">Stuff like that</L>.</Para></Document>'
+ );
+ is(
- qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L raw="Stuff I<like that>|/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">Stuff <I>like that</I></L>.</Para></Document>'
-);
+ qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
+ '<Document><Para>I like <L raw="Stuff I<like that>|/"bric-a-brac a gogo"" section="bric-a-brac a gogo" type="pod">Stuff <I>like that</I></L>.</Para></Document>'
+ );
+}
"=pod\n\nI like S<bric-a-brac a gogo>.\n",
"=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
));
"=pod\n\nI like S<bric-a-brac a gogo>.\n",
"=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
));
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
));
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
));
map {my $z = $_; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
));
map {my $z = $_; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
));
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
$x->_out(qq{=pod\n\nBe sure to read the L<Net::Ping> docs\n}),
" Be sure to read the Net::Ping docs\n\n"
);
$x->_out(qq{=pod\n\nBe sure to read the L<Net::Ping> docs\n}),
" Be sure to read the Net::Ping docs\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.com>\n}),
" http://www.perl.com\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.com>\n}),
" http://www.perl.com\n\n"
);
$x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}),
qq{ "Ping-pong" in Net::Ping\n\n}
);
$x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}),
qq{ "Ping-pong" in Net::Ping\n\n}
);
$x->_out(qq{=pod\n\nL</"Object Methods">\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL</"Object Methods">\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL</Object Methods>\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL</Object Methods>\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL<"Object Methods">\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL<"Object Methods">\n}),
qq{ "Object Methods"\n\n}
);
$x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
qq{ "Ping-pong" in Net::Ping\n\n}
);
$x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
qq{ "Ping-pong" in Net::Ping\n\n}
);
$x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}),
" news:comp.lang.perl.misc\n\n"
);
$x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}),
" news:comp.lang.perl.misc\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.org>\n}),
" http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.org>\n}),
" http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nSee L<http://www.perl.org>\n}),
" See http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nSee L<http://www.perl.org>\n}),
" See http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
" http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/\n\n"
);
$x->_out(qq{=pod\n\nL<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
" http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/\n\n"
);
$x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}),
" news:comp.lang.perl.misc\n\n"
);
$x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}),
" news:comp.lang.perl.misc\n\n"
);
$x->_out(qq{=pod\n\nL<http://wwwE<46>perl.org>\n}),
" http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nL<http://wwwE<46>perl.org>\n}),
" http://www.perl.org\n\n"
);
$x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}),
" Perl Error Messages\n\n"
);
$x->_out(qq{=pod\n\nL<perl.org|http://www.perl.org>\n}),
" perl.org <http://www.perl.org>\n\n"
);
$x->_out(qq{=pod\n\nL<perl.org|http://www.perl.org>\n}),
" perl.org <http://www.perl.org>\n\n"
);
$x->_out(qq{=pod\n\nSee L<perl.org|http://www.perl.org>\n}),
" See perl.org <http://www.perl.org>\n\n"
);
$x->_out(qq{=pod\n\nSee L<perl.org|http://www.perl.org>\n}),
" See perl.org <http://www.perl.org>\n\n"
);
x(qq{Be sure to read the L<Net::Ping> docs\n}),
qq{\n<p>Be sure to read the <a href="$PERLDOC/Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a> docs</p>\n}
);
x(qq{Be sure to read the L<Net::Ping> docs\n}),
qq{\n<p>Be sure to read the <a href="$PERLDOC/Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a> docs</p>\n}
);
x(qq{L<http://www.perl.com>\n}),
qq{\n<p><a href="http://www.perl.com" class="podlinkurl"\n>http://www.perl.com</a></p>\n}
);
x(qq{L<http://www.perl.com>\n}),
qq{\n<p><a href="http://www.perl.com" class="podlinkurl"\n>http://www.perl.com</a></p>\n}
);
x(qq{L<Net::Ping/Ping-pong>\n}),
qq{\n<p><a href="$PERLDOC/Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
);
x(qq{L<Net::Ping/Ping-pong>\n}),
qq{\n<p><a href="$PERLDOC/Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
);
x(qq{L</"Object Methods">\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L</"Object Methods">\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L</Object Methods>\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L</Object Methods>\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L<"Object Methods">\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L<"Object Methods">\n}),
qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
);
x(qq{L<Net::Ping/Ping-E<112>ong>\n}),
qq{\n<p><a href="$PERLDOC/Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
);
x(qq{L<Net::Ping/Ping-E<112>ong>\n}),
qq{\n<p><a href="$PERLDOC/Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
);
x(qq{L<news:comp.lang.perl.misc>\n}),
qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
);
x(qq{L<news:comp.lang.perl.misc>\n}),
qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
);
x(qq{L<http://www.perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{L<http://www.perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{See L<http://www.perl.org>\n}),
qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{See L<http://www.perl.org>\n}),
qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
qq{\n<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/" class="podlinkurl"\n>http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n}
);
x(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
qq{\n<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/" class="podlinkurl"\n>http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n}
);
x(qq{L<news:compE<46>lang.perl.misc>\n}),
qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
);
x(qq{L<news:compE<46>lang.perl.misc>\n}),
qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
);
x(qq{L<http://wwwE<46>perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{L<http://wwwE<46>perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);
x(qq{L<things|crontab(5)>\n}),
qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
);
x(qq{L<things|crontab(5)>\n}),
qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
);
x(qq{L<things|crontab(5)/ENVIRONMENT>\n}),
qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
);
x(qq{L<things|crontab(5)/ENVIRONMENT>\n}),
qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
);
x(qq{L<Perl Error Messages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<Perl Error Messages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<Perl\nError\nMessages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<Perl\nError\nMessages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<Perl\nError\t Messages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<Perl\nError\t Messages|perldiag>\n}),
qq{\n<p><a href="$PERLDOC/perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
);
x(qq{L<perl.org|http://www.perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
);
x(qq{L<perl.org|http://www.perl.org>\n}),
qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
);
x(qq{See L<perl.org|http://www.perl.org>\n}),
qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
);
x(qq{See L<perl.org|http://www.perl.org>\n}),
qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
);
o(qq{Be sure to read the L<Net::Ping> docs}),
qq{<p>Be sure to read the <a href="$PERLDOC/Net::Ping">Net::Ping</a> docs</p>\n\n}
);
o(qq{Be sure to read the L<Net::Ping> docs}),
qq{<p>Be sure to read the <a href="$PERLDOC/Net::Ping">Net::Ping</a> docs</p>\n\n}
);
o(qq{L<http://www.perl.com>}),
qq{<p><a href="http://www.perl.com">http://www.perl.com</a></p>\n\n}
);
o(qq{L<http://www.perl.com>}),
qq{<p><a href="http://www.perl.com">http://www.perl.com</a></p>\n\n}
);
o(qq{L<Net::Ping/Ping-pong>}),
qq{<p><a href="$PERLDOC/Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
);
o(qq{L<Net::Ping/Ping-pong>}),
qq{<p><a href="$PERLDOC/Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
);
o(qq{L</"Object Methods">}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L</"Object Methods">}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L</Object Methods>}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L</Object Methods>}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L<"Object Methods">}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L<"Object Methods">}),
qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
);
o(qq{L<Net::Ping/Ping-E<112>ong>}),
qq{<p><a href="$PERLDOC/Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
);
o(qq{L<Net::Ping/Ping-E<112>ong>}),
qq{<p><a href="$PERLDOC/Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
);
o(qq{L<news:comp.lang.perl.misc>}),
qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
);
o(qq{L<news:comp.lang.perl.misc>}),
qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
);
o(qq{L<http://www.perl.org>}),
qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{L<http://www.perl.org>}),
qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{See L<http://www.perl.org>}),
qq{<p>See <a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{See L<http://www.perl.org>}),
qq{<p>See <a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>}),
qq{<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/">http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n\n}
);
o(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>}),
qq{<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/">http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n\n}
);
o(qq{L<news:compE<46>lang.perl.misc>}),
qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
);
o(qq{L<news:compE<46>lang.perl.misc>}),
qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
);
o(qq{L<http://wwwE<46>perl.org>}),
qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{L<http://wwwE<46>perl.org>}),
qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
);
o(qq{L<things|crontab(5)>}),
qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
);
o(qq{L<things|crontab(5)>}),
qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
);
o(qq{L<things|crontab(5)/ENVIRONMENT>}),
qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
);
o(qq{L<things|crontab(5)/ENVIRONMENT>}),
qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
);
o(qq{L<Perl Error Messages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<Perl Error Messages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<Perl\nError\nMessages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<Perl\nError\nMessages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<Perl\nError\t Messages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<Perl\nError\t Messages|perldiag>}),
qq{<p><a href="$PERLDOC/perldiag">Perl Error Messages</a></p>\n\n}
);
o(qq{L<perl.org|http://www.perl.org>}),
qq{<p><a href="http://www.perl.org">perl.org</a></p>\n\n}
);
o(qq{L<perl.org|http://www.perl.org>}),
qq{<p><a href="http://www.perl.org">perl.org</a></p>\n\n}
);
o(qq{See L<perl.org|http://www.perl.org>}),
qq{<p>See <a href="http://www.perl.org">perl.org</a></p>\n\n}
);
o(qq{See L<perl.org|http://www.perl.org>}),
qq{<p>See <a href="http://www.perl.org">perl.org</a></p>\n\n}
);