Select Code to Download

#!/usr/bin/perl

...
<p id = "1">one</p>
<p id = "2">two</p>
<p id = "3">three</p>

2 siblings
<p id="2"> @0.1.1
...
<p id="3"> @0.1.2
  "three"
----------

foreach my $Node (@PageSections)