Help for this page

Select Code to Download

Select or download this

  while (/^$att:\s*(.*)$/img)
  {
      my $val = $1;
      print "$att is '$val'\n";
  }