Help for this page

Select Code to Download

Select or download this
```
@results = grep( /^$key/, @raw_data );
```

Select or download this

foreach( @results ) {
    $record = $_;
...
    $record =~ s/^\d+//;
    print $record;
}