my $filename = "prefs_defaults.cfg";
tie my @array, 'Tie::File', $filename or die "Could not open file '$filename'. $!";
# open (my $fh, "+<", $filename) or die "Could not open file '$filename'. $!";

#while(my $current_line = <$fh>)
for (my $i = 0; $i <= $#array; $i++){
    my $current_line = $array[$i]; # this is the abstract array.
    #print "$array[$i]\n";
	#print "$current_line\n";
	foreach my $field (keys %user_options)	{
		if (($current_line =~ $field) and ( defined ($user_options{$field}))) {
			#print "Line which modified: $current_line\n" ;
			#print "user options: $user_options{$field}\n";
			print "hello";
			$current_line = $current_line."\n";
			print $current_line;
			if ($current_line =~ /(.*?)=(\w+)(\s+.*)/) {
				print "left: $1\n";
				print "middle: $2\n";
				print "right: $3\n";
			}
			$current_line =~ s/(.*?)=(\w+)(\s+.*)/$1=$user_options{$field}$3/;
			#print "$current_line\n";				
			$array[$i] =$current_line;
			#print "$array[$i]\n";
		}		
	}

##</code><code>##


[RECORD_OBJECT]
START_GUARD_TIME=666
END_GUARD_TIME=0
AUTO_START_GUARD_TIME=2         #    =PREFS_API_RECORD_AUTO_START_GUARD_TIME_ON
AUTO_END_GUARD_TIME=2           #    =PREFS_API_RECORD_AUTO_END_GUARD_TIME_ON
DELETION_MODES=1                #    =PREFS_API_RECORD_DELETION_MODES_AUTOMATIC
REVIEW=1800
REMINDER_TIME=0
CONFLICT_TIME=0
WARN_PERCENT=90

[UI_OBJECT]
TIME_OUT=5
TRIGGER_TIME_OUT=1              #    =PREFS_API_UI_TRIGGER_TIME_OUT_OFF
MESSAGE_ALERT=1                 #    =PREFS_API_UI_MESSAGE_ALERT_OFF
BACK_MUSIC=1                    #    =PREFS_API_UI_BACK_MUSIC_OFF
BEEP=1                          #    =PREFS_API_UI_BEEP_OFF
SUBTITLE=1                      #    =PREFS_API_UI_SUBTITLE_OFF
NARRATIVE=1                     #    =PREFS_API_UI_NARRATIVE_OFF
HIGHLIGHTED_PROG=1              #    =PREFS_API_UI_HIGHLIGHTED_PROG_OFF
BEEP_IF_NARRATIVE=1             #    =PREFS_API_UI_BEEP_IF_NARRATIVE_OFF
REMOVE_ADULT_CHAN=1             #    =PREFS_API_UI_REMOVE_ADULT_CHAN_OFF
FRONT_PANEL=2                   #    =PREFS_API_UI_FRONT_PANEL_STANDARD
KEY_REPEAT=1                    #    =PREFS_API_UI_KEY_REPEAT_OFF
KEY_REPEAT_INITIAL_DELAY=0
KEY_REPEAT_DELAY=0
MINI_TV=2                       #    =PREFS_API_UI_MINI_TV_ON

[ANYTIME_OBJECT]
OPT_IN=1
BROADBAND=1
QUEUE=2
NOTIFY=2
CONTENT_GROUP=0x00000002		#    bitmask: 0x1 - SD, 0x2 - HD