[California] 
;;Name
$;FIrst_Name = 
;;Last_name
$;Last_Name=
;;Age of member
$;Age =

[NewYork]
;;Name
$;FIrst_Name = 
;;Last_name
$;Last_Name=
;;Age of member
$;Age =

[Washington]
;;Name
$;FIrst_Name = 
;;Last_name
$;Last_Name=
;;Age of member
$;Age =

##</code><code>##

[California] 
;;Name
$;FIrst_Name = Jack
;;Last_name
$;Last_Name= Daner
;;Age of member
$;Age = 27

[NewYork]
;;Name
$;FIrst_Name = Jill
;;Last_name
$;Last_Name= XYZ
;;Age of member
$;Age = 30

[Washington]
;;Name
$;FIrst_Name = Kim
;;Last_name
$;Last_Name= ABC
;;Age of member
$;Age = 25

##</code><code>##

open($input.file, "<$InputFile") or die "Error! Cannot open $InputFile for reading: $!";

        while (<$input.file>) {
                $_ =~ s/\s+$//;
                next if ($_ =~ /^#/);
                next if ($_ =~ /^$/);

                if ($_ =~ m/^\[(\S+)\]$/) {
                $sComponent = $1;
                    next;
                }
                elsif ($_ =~ m/^;;\s*(.*)/) {
                    $sDesc .= "$1.";
                    next;
                }
                elsif ($_ =~ m/\$;(\S+)\$;\s*=\s*(.*)/) {
                    $sParam = $1;
                    $sValue = $2;

                    }

                    $sParam = $sValue = $sDesc = "";
                    next;
                }
            }