Select Code to Download

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

my @devices;

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