The most portable manner for dealing with file names and directory paths is through the use of File::Spec module - For example:

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";
}
[download]

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001001010011"))'