#!/usr/bin/perl
$arg=$ARGV[0];
$cmd1="cleartool lsvob  $arg";
$arr=`$cmd1`;
$storage=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\s+\w+\);
print "$storage\n";

##</code><code>##

$storage=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\s+\w+\|^*\s+\/\w+\s+(.+)\s+\w+/);