C:/WINDOWS/TEST/Vendor/Bomb_USR/foo
C:/WINDOWS/TEST/Vendor/Bomb_MOT/foo
C:/WINDOWS/TEST/Vendor/Bay_Accelar/foo
C:/WINDOWS/TEST/Vendor/BayStackHub/foo
C:/WINDOWS/TEST/Vendor/Ascend_4000/foo
C:/WINDOWS/TEST/Vendor/Aironet/foo
C:/WINDOWS/TEST/Vendor/ADC_Cuda/foo
C:/WINDOWS/TEST/Vendor/3ComTokenRing/foo

##</code><code>##


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;