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