Help for this page

Select Code to Download

Select or download this

while (<DATA>){
      chomp;
...
           print "$tag\n";
      }
}