Bomb_USR
Bomb_MOT
Bay_Accelar
BayStackHub
Ascend_4000
Aironet
ADC_Cuda
3ComTokenRing

foreach (@FILES) {
    if m[\/\w+foo\$] {
        $_ =~ s/foo//;
        push @array, $_;
    }
}
print "$_\n" for @array;