use File::Spec;

my @paths =
(
    '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',
);

foreach my $path ( @paths )
{
    my $value = ( File::Spec->splitdir( $path ) )[-2];
    print $value, "\n";
}