open my $project_file, '<', $input_dir;
chomp(my @store_files = <$project_file>);
#print @store_files;
close $project_file;
foreach my $temp_line(@store_files)
{
if(my $pattern =~ /^REVISION_LOCATION:/){
my @fetch_path=split (':',$temp_line);
my $new_path=$fetch_path[1];
print $new_path;
last;
}
}

<c>
Error:
Use of uninitialized value in pattern match (m//)