#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use re 'debug';
my $file= "//depot/asic/msmshared/users/QTVOEMDrops/7600/3555473R/qtv/player/audioplayer/audiocmx.cpp";
my $update_p4where=`p4 where $file`;
#print "$update_p4where";
my $update_p4filelog=`p4 filelog $file`;
print "$update_p4filelog\n";
my $update_base_branched_p4path = $update_p4filelog =~ /branch\sfrom(.*\/(.*))\#\,(\#\d+)$/xmsg;
print "$update_base_branched_p4path\n";