#Untried
$_ =~ s/$regex_2/$+{group_x} . $+{group_y} . changer("$+{text}")/e;