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