Help for this page

Select Code to Download

Select or download this

while (my ($location, $devices) = each %devicecount) {
    
...

    foreach my $line (@workingdata) {
    ...

Select or download this
```
if (/\Q$location\ETEXT/) {
```