#!/usr/bin/perl
use warnings;
use strict;

my ($log_file,
    $folder_1,
    $folder_2,
    $folder_3);

# open INFO_FILE "<D:\\prad\\test\\info.txt";
# while<INFO_FILE>{
while (<DATA>) {
    next unless /:/; # ignore lines without the : seperator
    chomp;           # remove new line characters
    my ($what, $data)=split ":";
    if ($what eq "Log_file_name") {
        $log_file=$data;
    } elsif ($what eq "Main folder name") {
        $folder_1=$data;
    } elsif ($what eq "Second folder name") {
        $folder_2=$data;
    } elsif ($what eq "Third folder name") {
        $folder_3=$data
    }
}
# close INFO_FILE;

print "in file: $log_file, I found folders $folder_1, $folder_2, $folder_3\n";

__DATA__

Log_file_name:XXXX.csv

Main folder name:Eitv9

Second folder name:Eitv9cmd_cln

Third folder name:Eitv9gsd_cln