Help for this page

Select Code to Download

Select or download this

foreach my $name (@$fields) {
  # ...
...

  # ...
}

Select or download this

my $namedisplay;
$namedisplay = $1 if($name =~ /AS\s+(\S+)/i);