sub change_to_normal { my $str = shift; my $find = "(.*)=(.*)"; my $replace = '"$1 = $2;"'; $str =~ s/$find/$replace/eeg; #add ; my $replace = '"$1 = \{"'; #add { $str =~ s/(.*)=\s*;/$replace/eeg; }