I think you took it wrong. It is not an assignment.

Well, perhaps I did. But that doesn't alter the fact that you haven't demonstrated that you've made any effort to solve this particular problem for yourself. Perlmonks is not a free code writing service.

Anyway, here are a few pointers to get you started.

You say that the data is in a file, so the first thing you need to do is open the file for reading. This is generally done like so:

open DATA, "<", $myfile or die "Could not open $myfile:$!\n";
[download]

Next you want to decide what sort of data structure you're going to use. Let's say you just want to gather the device names into a list. Therefore, you declare your list variable:

my @devices;
[download]

Now you'll need to iterate through the file, line by line, extracting the data you want and adding it to the list. You'll need three things:

• a loop.
• a pattern match, and
• a push statement.

You might write something like this:

while (<DATA>) {
    chomp;
    next if !/^cgw01/;
    push @devices, $_;
}
[download]

You may need to refine the pattern match, depending on how variable your data is. The above assumes that all the device names begin with the string "cgw01".

Make sure you use strict and use warnings, and make use of print statements and Data::Dumper::Simple for debugging.

Cheers,
Darren :)