my %hash_basebuild_rpf;  
  
open my $inputfh, '<', $basebuild_rpf_file or die "could not open $basebuild_rpf_file - $!";  
while (my $line = <$inputfh>) {   
	chomp($line); 
	my ($key) = $line =~ /;([^;]+)\s-\s/;   
	print "KEY:$key\n"; 
	my ($value) = $line =~ /\.\\(.*);/; # this line fails when the line starts with "./" 
	print "VALUE:$value\n"; 
   
	$hash_basebuild_rpf{$key} = $value unless (exists $hash_basebuild_rpf{$key});  
}

use strict; 
use warnings; 
my %hash_basebuild_rpf; 
my $inputfh = *DATA; 
while ( my $line = <$inputfh> ) { 
    chomp($line); 
    my ($key) = $line =~ /;([^;]+)\s-\s/; 
    print "KEY:$key\n"; 
    my ($value) = $line =~ /\.[\/\\](.*);/;  
    print "VALUE:$value\n"; 
    $hash_basebuild_rpf{$key} = $value 
        unless ( exists $hash_basebuild_rpf{$key} ); 
}  
 
__END__ 
.\amss\platform\cs\bin\cdep.exe-43041;M76XXDFDCENJAD3555474RPLF.flf;//deploy/qcom/qct/core/cs/pk/rel/1.4/bin/cdep.exe - VU_CORE_CS_PK.01.04.00.07.00 : 5  
./modem_proc/build/ms/dmss_flags.min-000197;M8660AAAAQNLGM107501PLF.flf;//depot/asic/msm76xx/build/ms/dmss_flags.min - 7X27_BUILD_MS.00.00.02 : 5