Help for this page

Select Code to Download

Select or download this

# ./test.pl
Name "main::TAG" used only once: possible typo at ./test.pl line 9.
...
readline() on unopened filehandle TAG at ./test.pl line 9.
readline() on unopened filehandle TAG at ./test.pl line 9.
readline() on unopened filehandle TAG at ./test.pl line 9.

Select or download this

if($file =~ /<ins cnt="(\d+)">/) {
  for ($x=0; $x < $1; $x++) {
    print F2 "<TAG>";
  }
}