$result=`vxdisk list | grep $group | wc -l | sed 's/ *//'`;

# can be replaced by

$result = grep /\Q$group/, `vxdisk list`;

# to remove dependency on the systems grep/wc/sed
# and the sed was not needed as '  38' == '38' when
# perl gets ahold of it.
[download]