Help for this page

Select Code to Download

Select or download this

do {
  $n = chomp;
...
  $_ = <>;
  print $/ x $n unless s/^;//;
} while defined($_);