use strict; my $str = '{"OWNER":...}'; $str =~ s!"age1"!"scheduled":{"xage1"!; $str =~ s!"age1"!}, "completed":{"xage1"!; $str =~ s!"wc"!}, "wc"!; $str =~ s!"xage1"!"age1"!g;