#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump;

my $filename = "./DATA.txt";

open my $outFile, '>', $filename or die "Can't create $filename: $!";
print $outFile <<'FILE_DATA';
name = "varun"
ip='9.12.23.222' #including the irregular spaces
FILE_DATA
close $outFile;

open my $inFile, '<', $filename or die "Can't open $filename: $!";

my %data;

while (<$inFile>) {
    chomp;
    my ($id, $value) = split /\s*=\s*/;
    
    $data{$id} = $value;
}

print Data::Dump::dump (\%data);

##</code><code>##

{
  ip => "'9.12.23.222' #including the irregular spaces",
  name => "\"varun\"",
}