$text = s/($string_1)(.*)($string_2)/$3$2$1/ if ($text =~ m/\.txt$/)