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