while (<DATA>) {
  chomp;
  (my $tag = (split)[0]) =~ s!.*(/.*)\.vbs$!$1!;
  print $tag, "\n";
}

__DATA__
/usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs public
/usr/add-on/puccase_vob01/ccvob01/scm.vbs
/usr/add-on/puccase_vob01/ccvob01/v_dialerclient_rel.vbs

##</code><code>##

/bt_rel
/scm
/v_dialerclient_rel

##</code><code>##

$ cat extract-vobtags.pl
while (<DATA>) {
    chomp;
    my($tag, $storage) = (split)[1,2];
    printf "%20s: %s\n", $tag, $storage;
}

__DATA__
* /vobs/bt_rel /usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs public (replicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.vbs public (replicated)
* /v_dialermidtier /usr/addon/puccase_vob01/ccvob01/v_dialermidtier.vbs public (replicated)
* /v_dialer /usr/add-on/puccase_vob01/ccvob01/v_dialer.vbs public (replicated)
* /vobs/UMTools /user/addon/puccase_vob01/ccvob01/UMtools.vbs replicated)

$ perl extract-vobtags.pl
        /vobs/bt_rel: /usr/add-on/puccase_vob01/ccvob01/bt_rel.vbs
                /scm: /usr/add-on/puccase_vob01/ccvob01/scm.vbs
    /v_dialermidtier: /usr/addon/puccase_vob01/ccvob01/v_dialermidtier.vbs
           /v_dialer: /usr/add-on/puccase_vob01/ccvob01/v_dialer.vbs
       /vobs/UMTools: /user/addon/puccase_vob01/ccvob01/UMtools.vbs